diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/play/yow.el | 6 |
1 files changed, 3 insertions, 3 deletions
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 @@ | |||
| 49 | (defconst yow-after-load-message "I have SEEN the CONSING!!") | 49 | (defconst yow-after-load-message "I have SEEN the CONSING!!") |
| 50 | 50 | ||
| 51 | ;;;###autoload | 51 | ;;;###autoload |
| 52 | (defun yow (&optional insert) | 52 | (defun yow (&optional insert display) |
| 53 | "Return or display a random Zippy quotation. With prefix arg, insert it." | 53 | "Return or display a random Zippy quotation. With prefix arg, insert it." |
| 54 | (interactive "P") | 54 | (interactive "P\np") |
| 55 | (let ((yow (cookie yow-file yow-load-message yow-after-load-message))) | 55 | (let ((yow (cookie yow-file yow-load-message yow-after-load-message))) |
| 56 | (cond (insert | 56 | (cond (insert |
| 57 | (insert yow)) | 57 | (insert yow)) |
| 58 | ((not (interactive-p)) | 58 | ((not display) |
| 59 | yow) | 59 | yow) |
| 60 | (t | 60 | (t |
| 61 | (message "%s" yow))))) | 61 | (message "%s" yow))))) |