Mercurial > emacs
comparison lisp/calc/calc-aent.el @ 59821:6690da622b9a
(math-read-token): Check for smallmatrix environment.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Mon, 31 Jan 2005 09:16:44 +0000 |
parents | 14c6462097a2 |
children | 4b615730220f |
comparison
equal
deleted
inserted
replaced
59820:b8bd77aeda0d | 59821:6690da622b9a |
---|---|
769 envname (match-string 1 math-exp-str) | 769 envname (match-string 1 math-exp-str) |
770 math-exp-token 'punc | 770 math-exp-token 'punc |
771 math-expr-data "[") | 771 math-expr-data "[") |
772 (cond ((or (string= envname "matrix") | 772 (cond ((or (string= envname "matrix") |
773 (string= envname "bmatrix") | 773 (string= envname "bmatrix") |
774 (string= envname "smallmatrix") | |
774 (string= envname "pmatrix")) | 775 (string= envname "pmatrix")) |
775 (if (setq j (string-match (concat "\\\\end{" envname "}") | 776 (if (setq j (string-match (concat "\\\\end{" envname "}") |
776 math-exp-str math-exp-pos)) | 777 math-exp-str math-exp-pos)) |
777 (setq math-exp-str | 778 (setq math-exp-str |
778 (replace-match "]" t t math-exp-str)) | 779 (replace-match "]" t t math-exp-str)) |