mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues 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))