From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 23 Dec 2001 06:40:00 +0000 (+0000)
Subject: (yow): Use an arg to distinguish interactive calls, not interactive-p.
X-Git-Tag: ttn-vms-21-2-B4~17517
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b85b15f3fe489b1b710f19911289e2c84cf7bd9d;p=emacs.git

(yow): Use an arg to distinguish interactive calls, not interactive-p.
---

diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index c23bd706abd..90708d4897d 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -49,13 +49,13 @@
 (defconst yow-after-load-message "I have SEEN the CONSING!!")
 
 ;;;###autoload
-(defun yow (&optional insert)
+(defun yow (&optional insert display)
   "Return or display a random Zippy quotation.  With prefix arg, insert it."
-  (interactive "P")
+  (interactive "P\np")
   (let ((yow (cookie yow-file yow-load-message yow-after-load-message)))
     (cond (insert
 	   (insert yow))
-	  ((not (interactive-p))
+	  ((not display)
 	   yow)
 	  (t
 	   (message "%s" yow)))))