procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2001-12-23 06:40:00 +00:00
parent f1842270a5
commit b85b15f3fe
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/play/yow.el
View file

@ -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)))))