mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

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