Mercurial > emacs
changeset 58133:e40a74166300
(math-read-angle-bracket): Use declared variables math-exp-pos,
math-exp-str.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Thu, 11 Nov 2004 05:51:24 +0000 |
| parents | 349b9aab8e82 |
| children | 3089957051ea |
| files | lisp/calc/calc-forms.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-forms.el Thu Nov 11 05:50:09 2004 +0000 +++ b/lisp/calc/calc-forms.el Thu Nov 11 05:51:24 2004 +0000 @@ -1791,8 +1791,8 @@ (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 @@ (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))