(calc-match): Use an extra argument instead of `interactive-p'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c63e8a149107e10744131f4b7b6f06b520ddfea7..5fae5de22db7bf4ad1fa801be5e09ab28e3ea8a1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2004-10-26  Jay Belanger  <belanger@truman.edu>
+
+       * calc/calc.el (calc,full-calc, calc-quit, calc-keypad)
+       (full-calc-keypad, calc-trail-display):  Use an extra argument
+       instead of `interactive-p'.
+
+       * calc/calc-misc.el (calc-other-window): Use an extra argument
+       instead of `interactive-p'. 
+
+       * calc/calc-rewr.el (calc-match): Use an extra argument instead of 
+       `interactive-p'. 
+
 2004-10-26  Kim F. Storm  <storm@cua.dk>
 
        * help.el (describe-key): Describe both down-event and up-event

diff --git a/lisp/calc/calc-rewr.el b/lisp/calc/calc-rewr.el
index 51cffb753fce774fb92169842f393a6b1b6e4383..47b48bd88d8f24e946189abac16e46395cff7a5f 100644 (file)
--- a/lisp/calc/calc-rewr.el
+++ b/lisp/calc/calc-rewr.el
@@ -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)))