diff options
| author | Jay Belanger <[email protected]> | 2005-02-19 19:59:49 +0000 |
|---|---|---|
| committer | Jay Belanger <[email protected]> | 2005-02-19 19:59:49 +0000 |
| commit | dba763eec494a744c19b258647a82fed9281d4f0 (patch) | |
| tree | 7d9a6f148b3823f2653f03b4584c26b5fc608d58 /lisp/calc | |
| parent | 3f9526a371904148524ccea298a84a5aa2078644 (diff) | |
(math-read-token): Add local variable.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-aent.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index 9a693a1846..e174d81c41 100644 --- a/lisp/calc/calc-aent.el +++ b/lisp/calc/calc-aent.el @@ -784,7 +784,8 @@ in Calc algebraic input.") 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 @@ in Calc algebraic input.") (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 "}")))))) |