# HG changeset patch
# User yuuji@gentei.org
# Date 1300238785 -32400
# Node ID 9c5a764a871f5eac8cdaf1f38e1c86fd1ce33292
# Parent  ad313119ba15606e0f3247aac531ebedb97a9bb4
Treat `alltt' in YaTeX-verbatim-environments.

diff -r ad313119ba15 -r 9c5a764a871f yatex.el
--- a/yatex.el	Wed Mar 16 09:57:42 2011 +0900
+++ b/yatex.el	Wed Mar 16 10:26:25 2011 +0900
@@ -2,7 +2,7 @@
 ;;; Yet Another tex-mode for emacs - //–ì’¹//
 ;;; yatex.el rev. 1.74.4
 ;;; (c)1991-2011 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Wed Mar 16 09:56:43 2011 on firestorm
+;;; Last modified Wed Mar 16 10:16:18 2011 on firestorm
 ;;; $Id$
 ;;; The latest version of this software is always available at;
 ;;; http://www.yatex.org/
@@ -151,9 +151,9 @@
 for YaTeX-uncomment-paragraph.")
 
 (defvar YaTeX-verbatim-environments 
-  '("verbatim" "verbatim*")
+  '("verbatim" "verbatim*" "alltt")
   "*Assume these environments of this variable disable LaTeX commands.")
-(defvar YaTeX-verb-regexp "verb\\*?\\|path\\|alltt"
+(defvar YaTeX-verb-regexp "verb\\*?\\|path"
   "*Regexp of verb family.  Do not contain preceding \\\\ nor \\(\\).")
 (defvar YaTeX-fill-inhibit-environments
   (append '("tabular" "tabular*" "array" "picture" "eqnarray" "eqnarray*"
diff -r ad313119ba15 -r 9c5a764a871f yatexmth.el
--- a/yatexmth.el	Wed Mar 16 09:57:42 2011 +0900
+++ b/yatexmth.el	Wed Mar 16 10:26:25 2011 +0900
@@ -2,7 +2,7 @@
 ;;; YaTeX math-mode-specific functions.
 ;;; yatexmth.el
 ;;; (c)1993-2010 by HIROSE Yuuji [yuuji@yatex.org]
-;;; Last modified Sat Sep 11 15:51:37 2010 on firestorm
+;;; Last modified Wed Mar 16 10:18:04 2011 on firestorm
 ;;; $Id$
 
 ;;; [Customization guide]
@@ -433,10 +433,12 @@
   (list 'nth 1 list))
 
 (defvar YaTeX-math-cmd-regexp (concat (regexp-quote YaTeX-ec) "[A-z|]"))
-(defvar YaTeX-math-verbatim-environments
-  '("alltt")
-  "*List of environments in which LaTeX math mode is disabled.
-This value is appended with YaTeX-verbatim-environments.")
+
+;;;	alltt goes into YaTeX-verbatim-environments 2011/3/16
+;;(defvar YaTeX-math-verbatim-environments
+;;  '("alltt")
+;;  "*List of environments in which LaTeX math mode is disabled.
+;;This value is appended with YaTeX-verbatim-environments.")
 
 ;;;
 ;;YaTeX math-mode functions
@@ -552,10 +554,7 @@
 		      (setq dollar "$$")
 		      (backward-char 1)
 		      (setq nest (1+ nest)))
-		     ((let ((YaTeX-verbatim-environments
-			     (append YaTeX-math-verbatim-environments
-				     YaTeX-verbatim-environments)))
-			(YaTeX-literal-p))
+		     ((YaTeX-literal-p)
 		      nil)
 		     ((and (equal (char-after (1- (point))) ?\\ )
 			   (not (equal (char-after (- (point) 3)) ?\\ )))