49 |
(defconst yow-after-load-message "I have SEEN the CONSING!!") |
(defconst yow-after-load-message "I have SEEN the CONSING!!") |
50 |
|
|
51 |
;;;###autoload |
;;;###autoload |
52 |
(defun yow (&optional insert) |
(defun yow (&optional insert display) |
53 |
"Return or display a random Zippy quotation. With prefix arg, insert it." |
"Return or display a random Zippy quotation. With prefix arg, insert it." |
54 |
(interactive "P") |
(interactive "P\np") |
55 |
(let ((yow (cookie yow-file yow-load-message yow-after-load-message))) |
(let ((yow (cookie yow-file yow-load-message yow-after-load-message))) |
56 |
(cond (insert |
(cond (insert |
57 |
(insert yow)) |
(insert yow)) |
58 |
((not (interactive-p)) |
((not display) |
59 |
yow) |
yow) |
60 |
(t |
(t |
61 |
(message "%s" yow))))) |
(message "%s" yow))))) |