1.1 --- a/yatexmth.el	Sat Dec 02 18:35:28 1995 +0000
     1.2 +++ b/yatexmth.el	Thu Feb 01 18:55:47 1996 +0000
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX math-mode-specific functions.
     1.5  ;;; yatexmth.el rev.4
     1.6  ;;; (c )1993-1995 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
     1.7 -;;; Last modified Wed Aug 16 12:45:55 1995 on inspire
     1.8 +;;; Last modified Thu Feb  1 13:04:16 1996 on supra
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; [Customization guide]
    1.12 @@ -439,11 +439,16 @@
    1.13  (defun YaTeX-math-get-sign (list)
    1.14    (YaTeX-math-gets (car (cdr-safe (cdr-safe list))))
    1.15  )
    1.16 -
    1.17  (defun YaTeX-in-math-mode-p ()
    1.18    "If current position is supposed to be in LaTeX-math-mode, return t."
    1.19    (or (YaTeX-quick-in-environment-p
    1.20 -       '("math" "eqnarray" "equation" "eqnarray*" "displaymath"))
    1.21 +       (append
    1.22 +	'("math" "eqnarray" "equation" "eqnarray*" "displaymath");LaTeX
    1.23 +	(if YaTeX-use-AMS-LaTeX
    1.24 +	    ;; And math modes of AMS-LaTeX
    1.25 +	    '("align" "align*" "split" "multline" "multline*" "gather"
    1.26 +	      "gather*" "aligned*" "gathered" "gathered*" "alignat"
    1.27 +	      "alignat*" "xalignat" "xalignat*" "xxalignat" "xxalignat*"))))
    1.28        (let*((p (point)) (nest 0) me0
    1.29  	    (delim (concat YaTeX-sectioning-regexp "\\|^$\\|^\C-l"))
    1.30  	    (boundary
    1.31 @@ -473,7 +478,7 @@
    1.32  	   (t (catch 'dollar
    1.33  		(while ;(search-backward "$" boundary t);little bit fast.
    1.34  		    (YaTeX-re-search-active-backward ;;;;;; Too slow???
    1.35 -		     "\\$" YaTeX-comment-prefix boundary t)
    1.36 +		     "\\$" (concat "[^\\\\]" YaTeX-comment-prefix) boundary t)
    1.37  		  (cond
    1.38  		   ((equal (char-after (1- (point))) ?$) ; $$ equation $$
    1.39  		    (backward-char 1)