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)

     2.1 --- a/yatexmth.el	Thu Jan 05 23:15:34 2017 +0900
     2.2 +++ b/yatexmth.el	Tue Jan 17 22:38:37 2017 +0900
     2.3 @@ -1,7 +1,7 @@
     2.4  ;;; yatexmth.el --- YaTeX math-mode-specific functions -*- coding: sjis -*-
     2.5  ;;; 
     2.6  ;;; (c)1993-2017 by HIROSE Yuuji [yuuji@yatex.org]
     2.7 -;;; Last modified Thu Jan  5 17:46:22 2017 on firestorm
     2.8 +;;; Last modified Tue Jan 17 22:33:52 2017 on firestorm
     2.9  ;;; $Id$
    2.10  
    2.11  ;;; Commentary:
    2.12 @@ -522,7 +522,8 @@
    2.13  	      ;;  "equation*" "cases" "flalign" "flalign*"
    2.14  	      ;;  "alignat*" "xalignat" "xalignat*" "xxalignat" "xxalignat*"
    2.15  	      YaTeX-math-begin-list
    2.16 -	    )))
    2.17 +	    )
    2.18 +	  YaTeX-math-other-env-alist))
    2.19  	(let*((p (point)) (nest 0) me0 r firstp dollar
    2.20  	      (delim (concat YaTeX-sectioning-regexp "\\|^$\\|^\C-l"))
    2.21  	      (boundary

     3.1 --- a/yatexpkg.el	Thu Jan 05 23:15:34 2017 +0900
     3.2 +++ b/yatexpkg.el	Tue Jan 17 22:38:37 2017 +0900
     3.3 @@ -1,7 +1,7 @@
     3.4  ;;; yatexpkg.el --- YaTeX package manager -*- coding: sjis -*-
     3.5  ;;; 
     3.6  ;;; (c)2003-2017 by HIROSE, Yuuji [yuuji@yatex.org]
     3.7 -;;; Last modified Thu Jan  5 17:46:30 2017 on firestorm
     3.8 +;;; Last modified Tue Jan 17 17:42:47 2017 on firestorm
     3.9  ;;; $Id$
    3.10  
    3.11  ;;; Code:
    3.12 @@ -52,6 +52,7 @@
    3.13      ("labelcpageref"	(same-as . "cref"))
    3.14      ("wrapfig"	(env "wrapfigure" "wraptable"))
    3.15      ("setspace"	(env "spacing") (section "setstretch"))
    3.16 +    ("cases"	(env "numcases" "subnumcases"))
    3.17      )
    3.18    "Default package vs. macro list.
    3.19  Alists contains '(PACKAGENAME . MACROLIST)