yatex

changeset 450:8871fe9f563b dev

YaTeX-math-other-env-alist should have list form
author HIROSE Yuuji <yuuji@gentei.org>
date Wed, 18 Jan 2017 07:49:03 +0900
parents c2c547e147c7
children 2011de73a671
files yatex.el yatexmth.el
diffstat 2 files changed, 6 insertions(+), 4 deletions(-) [+]
line diff
     1.1 --- a/yatex.el	Tue Jan 17 22:38:37 2017 +0900
     1.2 +++ b/yatex.el	Wed Jan 18 07:49:03 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 Tue Jan 17 22:33:39 2017 on firestorm
     1.7 +;;; Last modified Wed Jan 18 07:44:11 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 @@ -339,7 +339,7 @@
    1.12      ("smallmatrix") ("cases") ("subequations")))
    1.13  ;; Prepare list(not alist) for YaTeX::ref in yatexadd.el
    1.14  (defvar YaTeX-math-other-env-alist-default
    1.15 -  '(("numcases" "subnumcases"))
    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 @@ -347,6 +347,8 @@
    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 +(defvar YaTeX-math-other-env-list
    1.25 +  (mapcar 'car YaTeX-math-other-env-alist))
    1.26  
    1.27  (defvar YaTeX-math-begin-list
    1.28    (mapcar 'car YaTeX-ams-math-begin-alist))
     2.1 --- a/yatexmth.el	Tue Jan 17 22:38:37 2017 +0900
     2.2 +++ b/yatexmth.el	Wed Jan 18 07:49:03 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 Tue Jan 17 22:33:52 2017 on firestorm
     2.8 +;;; Last modified Wed Jan 18 07:40:11 2017 on firestorm
     2.9  ;;; $Id$
    2.10  
    2.11  ;;; Commentary:
    2.12 @@ -523,7 +523,7 @@
    2.13  	      ;;  "alignat*" "xalignat" "xalignat*" "xxalignat" "xxalignat*"
    2.14  	      YaTeX-math-begin-list
    2.15  	    )
    2.16 -	  YaTeX-math-other-env-alist))
    2.17 +	  YaTeX-math-other-env-list))
    2.18  	(let*((p (point)) (nest 0) me0 r firstp dollar
    2.19  	      (delim (concat YaTeX-sectioning-regexp "\\|^$\\|^\C-l"))
    2.20  	      (boundary