Mercurial > hgrepos > hgweb.cgi > yatex
changeset 449:c2c547e147c7 dev
YaTeX-math-other-env-alist-* for additional math-environments
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Tue, 17 Jan 2017 22:38:37 +0900 |
parents | 9a91ec831762 |
children | 8871fe9f563b |
files | yatex.el yatexmth.el yatexpkg.el |
diffstat | 3 files changed, 18 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/yatex.el Thu Jan 05 23:15:34 2017 +0900 +++ b/yatex.el Tue Jan 17 22:38:37 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 Thu Jan 5 23:13:56 2017 on firestorm +;;; Last modified Tue Jan 17 22:33:39 2017 on firestorm ;;; $Id$ ;;; The latest version of this software is always available at; ;;; http://www.yatex.org/ @@ -338,12 +338,21 @@ ("split") ("split*") ("aligned") ("aligned*") ("alignedat") ("gathered") ("smallmatrix") ("cases") ("subequations"))) ;; Prepare list(not alist) for YaTeX::ref in yatexadd.el +(defvar YaTeX-math-other-env-alist-default + '(("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") +(defvar YaTeX-math-other-env-alist + (append YaTeX-math-other-env-alist-default + YaTeX-math-other-env-alist-private) + "Alist of additional environments for equations") + (defvar YaTeX-math-begin-list (mapcar 'car YaTeX-ams-math-begin-alist)) (defvar YaTeX-math-gathering-list ;used in yatexadd.el#yatex::ref (mapcar 'car YaTeX-ams-math-gathering-alist)) - (defvar YaTeX-ams-env-table (append YaTeX-ams-math-begin-alist YaTeX-ams-math-gathering-alist) "*Standard AMS-LaTeX(2e) environment completion table.") @@ -370,7 +379,8 @@ ("alltt") ;defined in alltt ("multicols") ;defined in multicol ("breakbox"))) ;defined in eclbkbox - (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table)) + (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table) + YaTeX-math-other-env-alist) "Default completion table for begin-type completion.") (defvar user-env-table nil)
--- a/yatexmth.el Thu Jan 05 23:15:34 2017 +0900 +++ b/yatexmth.el Tue Jan 17 22:38:37 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 Thu Jan 5 17:46:22 2017 on firestorm +;;; Last modified Tue Jan 17 22:33:52 2017 on firestorm ;;; $Id$ ;;; Commentary: @@ -522,7 +522,8 @@ ;; "equation*" "cases" "flalign" "flalign*" ;; "alignat*" "xalignat" "xalignat*" "xxalignat" "xxalignat*" YaTeX-math-begin-list - ))) + ) + YaTeX-math-other-env-alist)) (let*((p (point)) (nest 0) me0 r firstp dollar (delim (concat YaTeX-sectioning-regexp "\\|^$\\|^\C-l")) (boundary
--- a/yatexpkg.el Thu Jan 05 23:15:34 2017 +0900 +++ b/yatexpkg.el Tue Jan 17 22:38:37 2017 +0900 @@ -1,7 +1,7 @@ ;;; yatexpkg.el --- YaTeX package manager -*- coding: sjis -*- ;;; ;;; (c)2003-2017 by HIROSE, Yuuji [yuuji@yatex.org] -;;; Last modified Thu Jan 5 17:46:30 2017 on firestorm +;;; Last modified Tue Jan 17 17:42:47 2017 on firestorm ;;; $Id$ ;;; Code: @@ -52,6 +52,7 @@ ("labelcpageref" (same-as . "cref")) ("wrapfig" (env "wrapfigure" "wraptable")) ("setspace" (env "spacing") (section "setstretch")) + ("cases" (env "numcases" "subnumcases")) ) "Default package vs. macro list. Alists contains '(PACKAGENAME . MACROLIST)