Mercurial > emacs
changeset 60169:c396883e5069
(math-read-token): Add local variable.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sat, 19 Feb 2005 19:59:49 +0000 |
| parents | d96e54250eea |
| children | 259cc4e04cd1 |
| files | lisp/calc/calc-aent.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-aent.el Sat Feb 19 19:32:47 2005 +0000 +++ b/lisp/calc/calc-aent.el Sat Feb 19 19:59:49 2005 +0000 @@ -784,7 +784,8 @@ math-exp-pos (match-end 0) math-expr-data (math-restore-dashes (math-match-substring math-exp-str 1))) - (let ((code (assoc math-expr-data math-tex-ignore-words))) + (let ((code (assoc math-expr-data math-tex-ignore-words)) + envname) (cond ((null code)) ((null (cdr code)) (math-read-token)) @@ -801,8 +802,8 @@ (string= envname "bmatrix") (string= envname "smallmatrix") (string= envname "pmatrix")) - (if (setq j (string-match (concat "\\\\end{" envname "}") - math-exp-str math-exp-pos)) + (if (string-match (concat "\\\\end{" envname "}") + math-exp-str math-exp-pos) (setq math-exp-str (replace-match "]" t t math-exp-str)) (error "%s" (concat "No closing \\end{" envname "}"))))))