From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Thu, 11 Nov 2004 05:51:24 +0000 (+0000)
Subject: (math-read-angle-bracket):  Use declared variables math-exp-pos,
X-Git-Tag: ttn-vms-21-2-B4~4011
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97660b3e631d72d24c63e7cc0cd482e8eb0cd2c8;p=emacs.git

(math-read-angle-bracket):  Use declared variables math-exp-pos,
math-exp-str.
---

diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el
index 31f9e776a0c..e64983ad33d 100644
--- a/lisp/calc/calc-forms.el
+++ b/lisp/calc/calc-forms.el
@@ -1791,8 +1791,8 @@ and ends on the last Sunday of October at 2 a.m."
 
 
 (defun math-read-angle-brackets ()
-  (let* ((last (or (math-check-for-commas t) (length exp-str)))
-	 (str (substring exp-str exp-pos last))
+  (let* ((last (or (math-check-for-commas t) (length math-exp-str)))
+	 (str (substring math-exp-str math-exp-pos last))
 	 (res
 	  (if (string-match "\\` *\\([a-zA-Z#][a-zA-Z0-9#]* *,? *\\)*:" str)
 	      (let ((str1 (substring str 0 (1- (match-end 0))))
@@ -1818,7 +1818,7 @@ and ends on the last Sunday of October at 2 a.m."
 	(throw 'syntax res))
     (if (eq (car-safe res) 'error)
 	(throw 'syntax (nth 2 res)))
-    (setq exp-pos (1+ last))
+    (setq math-exp-pos (1+ last))
     (math-read-token)
     res))