[Emacs-diffs] Changes to emacs/lisp/calc/calc-forms.el [lexbind]

[Miles Bader]

Index: emacs/lisp/calc/calc-forms.el
diff -c emacs/lisp/calc/calc-forms.el:1.4.4.3 
emacs/lisp/calc/calc-forms.el:1.4.4.4
*** emacs/lisp/calc/calc-forms.el:1.4.4.3       Mon Feb  9 14:14:10 2004
--- emacs/lisp/calc/calc-forms.el       Fri Nov 12 04:21:20 2004
***************
*** 1791,1798 ****
  
  
  (defun math-read-angle-brackets ()
!   (let* ((last (or (math-check-for-commas t) (length exp-str)))
!        (str (substring exp-str exp-pos last))
         (res
          (if (string-match "\\` *\\([a-zA-Z#][a-zA-Z0-9#]* *,? *\\)*:" str)
              (let ((str1 (substring str 0 (1- (match-end 0))))
--- 1791,1798 ----
  
  
  (defun math-read-angle-brackets ()
!   (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,1824 ****
        (throw 'syntax res))
      (if (eq (car-safe res) 'error)
        (throw 'syntax (nth 2 res)))
!     (setq exp-pos (1+ last))
      (math-read-token)
      res))
  
--- 1818,1824 ----
        (throw 'syntax res))
      (if (eq (car-safe res) 'error)
        (throw 'syntax (nth 2 res)))
!     (setq math-exp-pos (1+ last))
      (math-read-token)
      res))