[Emacs-diffs] Changes to emacs/lisp/play/yow.el

[Richard M. Stallman]

Index: emacs/lisp/play/yow.el
diff -c emacs/lisp/play/yow.el:1.24 emacs/lisp/play/yow.el:1.25
*** emacs/lisp/play/yow.el:1.24 Mon Nov 26 11:15:49 2001
--- emacs/lisp/play/yow.el      Sun Dec 23 01:40:00 2001
***************
*** 49,61 ****
  (defconst yow-after-load-message "I have SEEN the CONSING!!")
  
  ;;;###autoload
! (defun yow (&optional insert)
    "Return or display a random Zippy quotation.  With prefix arg, insert it."
!   (interactive "P")
    (let ((yow (cookie yow-file yow-load-message yow-after-load-message)))
      (cond (insert
           (insert yow))
!         ((not (interactive-p))
           yow)
          (t
           (message "%s" yow)))))
--- 49,61 ----
  (defconst yow-after-load-message "I have SEEN the CONSING!!")
  
  ;;;###autoload
! (defun yow (&optional insert display)
    "Return or display a random Zippy quotation.  With prefix arg, insert it."
!   (interactive "P\np")
    (let ((yow (cookie yow-file yow-load-message yow-after-load-message)))
      (cond (insert
           (insert yow))
!         ((not display)
           yow)
          (t
           (message "%s" yow)))))