# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1009089600 0
# Node ID c04b899961647dd72ffc1f944aff6c9d15b4ac9b
# Parent  301b9b7041455c6c5e71cb4b38a6b8696b551f0b
(yow): Use an arg to distinguish interactive calls, not interactive-p.

diff -r 301b9b704145 -r c04b89996164 lisp/play/yow.el
--- a/lisp/play/yow.el	Sun Dec 23 06:38:58 2001 +0000
+++ b/lisp/play/yow.el	Sun Dec 23 06:40:00 2001 +0000
@@ -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)))))