emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/calc/calc-rewr.el [emacs-unicode-2]
Date: Wed, 27 Oct 2004 01:48:55 -0400

Index: emacs/lisp/calc/calc-rewr.el
diff -c emacs/lisp/calc/calc-rewr.el:1.6.4.1 
emacs/lisp/calc/calc-rewr.el:1.6.4.2
*** emacs/lisp/calc/calc-rewr.el:1.6.4.1        Fri Apr 16 12:50:11 2004
--- emacs/lisp/calc/calc-rewr.el        Wed Oct 27 05:42:03 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)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]