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

[Miles Bader]

Index: emacs/lisp/calc/calc-rewr.el
diff -c emacs/lisp/calc/calc-rewr.el:1.4.4.2 
emacs/lisp/calc/calc-rewr.el:1.4.4.3
*** emacs/lisp/calc/calc-rewr.el:1.4.4.2        Tue Oct 14 23:35:48 2003
--- emacs/lisp/calc/calc-rewr.el        Fri Oct 29 02:05:13 2004
***************
*** 143,157 ****
       (calc-pop-push-record-list n "rwrt" (list expr)))
     (calc-handle-whys)))
  
! (defun calc-match (pat)
!   (interactive "sPattern: \n")
    (calc-slow-wrapper
     (let (n expr)
       (if (or (null pat) (equal pat "") (equal pat "$"))
         (setq expr (calc-top-n 2)
               pat (calc-top-n 1)
               n 2)
!        (if (interactive-p) (setq calc-previous-alg-entry pat))
         (setq pat (if (stringp pat) (math-read-expr pat) pat))
         (if (eq (car-safe pat) 'error)
           (error "Bad format in expression: %s" (nth 1 pat)))
--- 143,157 ----
       (calc-pop-push-record-list n "rwrt" (list expr)))
     (calc-handle-whys)))
  
! (defun calc-match (pat &optional interactive)
!   (interactive "sPattern: \np")
    (calc-slow-wrapper
     (let (n expr)
       (if (or (null pat) (equal pat "") (equal pat "$"))
         (setq expr (calc-top-n 2)
               pat (calc-top-n 1)
               n 2)
!        (if interactive (setq calc-previous-alg-entry pat))
         (setq pat (if (stringp pat) (math-read-expr pat) pat))
         (if (eq (car-safe pat) 'error)
           (error "Bad format in expression: %s" (nth 1 pat)))