1.1 --- a/yatexmth.el	Sat Sep 11 16:02:24 2010 +0900
     1.2 +++ b/yatexmth.el	Wed Mar 16 10:26:25 2011 +0900
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX math-mode-specific functions.
     1.5  ;;; yatexmth.el
     1.6  ;;; (c)1993-2010 by HIROSE Yuuji [yuuji@yatex.org]
     1.7 -;;; Last modified Sat Sep 11 15:51:37 2010 on firestorm
     1.8 +;;; Last modified Wed Mar 16 10:18:04 2011 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; [Customization guide]
    1.12 @@ -433,10 +433,12 @@
    1.13    (list 'nth 1 list))
    1.14  
    1.15  (defvar YaTeX-math-cmd-regexp (concat (regexp-quote YaTeX-ec) "[A-z|]"))
    1.16 -(defvar YaTeX-math-verbatim-environments
    1.17 -  '("alltt")
    1.18 -  "*List of environments in which LaTeX math mode is disabled.
    1.19 -This value is appended with YaTeX-verbatim-environments.")
    1.20 +
    1.21 +;;;	alltt goes into YaTeX-verbatim-environments 2011/3/16
    1.22 +;;(defvar YaTeX-math-verbatim-environments
    1.23 +;;  '("alltt")
    1.24 +;;  "*List of environments in which LaTeX math mode is disabled.
    1.25 +;;This value is appended with YaTeX-verbatim-environments.")
    1.26  
    1.27  ;;;
    1.28  ;;YaTeX math-mode functions
    1.29 @@ -552,10 +554,7 @@
    1.30  		      (setq dollar "$$")
    1.31  		      (backward-char 1)
    1.32  		      (setq nest (1+ nest)))
    1.33 -		     ((let ((YaTeX-verbatim-environments
    1.34 -			     (append YaTeX-math-verbatim-environments
    1.35 -				     YaTeX-verbatim-environments)))
    1.36 -			(YaTeX-literal-p))
    1.37 +		     ((YaTeX-literal-p)
    1.38  		      nil)
    1.39  		     ((and (equal (char-after (1- (point))) ?\\ )
    1.40  			   (not (equal (char-after (- (point) 3)) ?\\ )))