martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
math-exp-str.
This commit is contained in:
Jay Belanger
2004-11-11 05:51:24 +00:00
parent e59b8655da
commit 97660b3e63
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/calc/calc-forms.el
View File

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