/[emacs]/emacs/lisp/play/yow.el
ViewVC logotype

Diff of /emacs/lisp/play/yow.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by pj, Mon Nov 26 16:15:49 2001 UTC revision 1.25 by rms, Sun Dec 23 06:40:00 2001 UTC
# Line 49  Line 49 
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)))))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26