# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1484693343 -32400
# Node ID 8871fe9f563bb13344ebc39bb8963babcb091d64
# Parent  c2c547e147c70fda913fc914222bbd8138450009
YaTeX-math-other-env-alist should have list form

diff -r c2c547e147c7 -r 8871fe9f563b yatex.el
--- a/yatex.el	Tue Jan 17 22:38:37 2017 +0900
+++ b/yatex.el	Wed Jan 18 07:49:03 2017 +0900
@@ -1,6 +1,6 @@
 ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*-
 ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Tue Jan 17 22:33:39 2017 on firestorm
+;;; Last modified Wed Jan 18 07:44:11 2017 on firestorm
 ;;; $Id$
 ;;; The latest version of this software is always available at;
 ;;; http://www.yatex.org/
@@ -339,7 +339,7 @@
     ("smallmatrix") ("cases") ("subequations")))
 ;; Prepare list(not alist) for YaTeX::ref in yatexadd.el
 (defvar YaTeX-math-other-env-alist-default
-  '(("numcases" "subnumcases"))
+  '(("numcases") ("subnumcases"))
   "Default alist of additional environments for equations")
 (defvar YaTeX-math-other-env-alist-private nil
   "*User defined alist of additional environments for equations")
@@ -347,6 +347,8 @@
   (append YaTeX-math-other-env-alist-default
 	  YaTeX-math-other-env-alist-private)
   "Alist of additional environments for equations")
+(defvar YaTeX-math-other-env-list
+  (mapcar 'car YaTeX-math-other-env-alist))
 
 (defvar YaTeX-math-begin-list
   (mapcar 'car YaTeX-ams-math-begin-alist))
diff -r c2c547e147c7 -r 8871fe9f563b yatexmth.el
--- a/yatexmth.el	Tue Jan 17 22:38:37 2017 +0900
+++ b/yatexmth.el	Wed Jan 18 07:49:03 2017 +0900
@@ -1,7 +1,7 @@
 ;;; yatexmth.el --- YaTeX math-mode-specific functions -*- coding: sjis -*-
 ;;; 
 ;;; (c)1993-2017 by HIROSE Yuuji [yuuji@yatex.org]
-;;; Last modified Tue Jan 17 22:33:52 2017 on firestorm
+;;; Last modified Wed Jan 18 07:40:11 2017 on firestorm
 ;;; $Id$
 
 ;;; Commentary:
@@ -523,7 +523,7 @@
 	      ;;  "alignat*" "xalignat" "xalignat*" "xxalignat" "xxalignat*"
 	      YaTeX-math-begin-list
 	    )
-	  YaTeX-math-other-env-alist))
+	  YaTeX-math-other-env-list))
 	(let*((p (point)) (nest 0) me0 r firstp dollar
 	      (delim (concat YaTeX-sectioning-regexp "\\|^$\\|^\C-l"))
 	      (boundary