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)) |