diff options
| author | Richard M. Stallman | 2001-12-23 06:40:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-12-23 06:40:00 +0000 |
| commit | b85b15f3fe489b1b710f19911289e2c84cf7bd9d (patch) | |
| tree | 9b4ce28a9711233fe00d526589106e48d4d84167 | |
| parent | f1842270a5d35f410a27c2a280b294aa1ecedc8f (diff) | |
| download | emacs-b85b15f3fe489b1b710f19911289e2c84cf7bd9d.tar.gz emacs-b85b15f3fe489b1b710f19911289e2c84cf7bd9d.zip | |
(yow): Use an arg to distinguish interactive calls, not interactive-p.
| -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))))) |