Mercurial > emacs

changeset 42283:c04b89996164

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(yow): Use an arg to distinguish interactive calls, not interactive-p.
author Richard M. Stallman <rms@gnu.org>
date Sun, 23 Dec 2001 06:40:00 +0000
parents 301b9b704145
children b8c51fd416a8
files lisp/play/yow.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)))))