# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1108843189 0
# Node ID c396883e50695098ce387ef2f847bb035199decd
# Parent  d96e54250eea4356a2a63cb613a0e0b78e30e295
(math-read-token): Add local variable.

diff -r d96e54250eea -r c396883e5069 lisp/calc/calc-aent.el
--- 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 "}"))))))