mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

(math-read-token): Add local variable.

Browse Source
This commit is contained in:
Jay Belanger 2005-02-19 19:59:49 +00:00
parent 3f9526a371
commit dba763eec4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/calc/calc-aent.el
View File

@ -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 "}"))))))