Mercurial > emacs

changeset 57712:dc42d2f96245

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-match): Use an extra argument instead of `interactive-p'.
author Jay Belanger <jay.p.belanger@gmail.com>
date Tue, 26 Oct 2004 19:06:53 +0000
parents d9073880a6e4
children 156f101971e4
files lisp/calc/calc-rewr.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-rewr.el	Tue Oct 26 19:06:24 2004 +0000
+++ b/lisp/calc/calc-rewr.el	Tue Oct 26 19:06:53 2004 +0000
@@ -143,15 +143,15 @@
      (calc-pop-push-record-list n "rwrt" (list expr)))
    (calc-handle-whys)))
 
-(defun calc-match (pat)
-  (interactive "sPattern: \n")
+(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-p) (setq calc-previous-alg-entry pat))
+       (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)))