# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1098817613 0
# Node ID dc42d2f96245b3e14c311649b3027e4c8e3c86af
# Parent  d9073880a6e41b1f4632c8d58401fede6e0ad994
(calc-match): Use an extra argument instead of `interactive-p'.

diff -r d9073880a6e4 -r dc42d2f96245 lisp/calc/calc-rewr.el
--- 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)))