1.1 --- a/yatex.el	Thu Jan 05 23:15:34 2017 +0900
     1.2 +++ b/yatex.el	Tue Jan 17 22:38:37 2017 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*-
     1.5  ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
     1.6 -;;; Last modified Thu Jan  5 23:13:56 2017 on firestorm
     1.7 +;;; Last modified Tue Jan 17 22:33:39 2017 on firestorm
     1.8  ;;; $Id$
     1.9  ;;; The latest version of this software is always available at;
    1.10  ;;; http://www.yatex.org/
    1.11 @@ -338,12 +338,21 @@
    1.12      ("split") ("split*") ("aligned") ("aligned*") ("alignedat") ("gathered")
    1.13      ("smallmatrix") ("cases") ("subequations")))
    1.14  ;; Prepare list(not alist) for YaTeX::ref in yatexadd.el
    1.15 +(defvar YaTeX-math-other-env-alist-default
    1.16 +  '(("numcases" "subnumcases"))
    1.17 +  "Default alist of additional environments for equations")
    1.18 +(defvar YaTeX-math-other-env-alist-private nil
    1.19 +  "*User defined alist of additional environments for equations")
    1.20 +(defvar YaTeX-math-other-env-alist
    1.21 +  (append YaTeX-math-other-env-alist-default
    1.22 +	  YaTeX-math-other-env-alist-private)
    1.23 +  "Alist of additional environments for equations")
    1.24 +
    1.25  (defvar YaTeX-math-begin-list
    1.26    (mapcar 'car YaTeX-ams-math-begin-alist))
    1.27  (defvar YaTeX-math-gathering-list	;used in yatexadd.el#yatex::ref
    1.28    (mapcar 'car YaTeX-ams-math-gathering-alist))
    1.29  
    1.30 -
    1.31  (defvar YaTeX-ams-env-table
    1.32    (append YaTeX-ams-math-begin-alist YaTeX-ams-math-gathering-alist)
    1.33    "*Standard AMS-LaTeX(2e) environment completion table.")
    1.34 @@ -370,7 +379,8 @@
    1.35  	 ("alltt")			;defined in alltt
    1.36  	 ("multicols")			;defined in multicol
    1.37  	 ("breakbox")))			;defined in eclbkbox
    1.38 -   (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table))
    1.39 +   (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table)
    1.40 +   YaTeX-math-other-env-alist)
    1.41    "Default completion table for begin-type completion.")
    1.42  
    1.43  (defvar user-env-table nil)