changeset 5622:dc61f16f4f79

(yow-file): Doc fix. (yow): With non-nil arg (prefix arg), insert the chosen pinhead wisdom at point. Use (interactive-p) instead of arg to decide if interactive. (insert-zippyism): Yow! Am I INSERTED yet?

--- a/lisp/play/yow.el	Mon Jan 17 05:24:29 1994 +0000
+++ b/lisp/play/yow.el	Mon Jan 17 21:44:35 1994 +0000
@@ -1,6 +1,6 @@
 ;;; yow.el --- quote random zippyisms
 
-;; Copyright (C) 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: games
@@ -34,15 +34,17 @@
 (require 'cookie1)
 
 (defvar yow-file (concat data-directory "yow.lines")
-   "Pertinent pinhead phrases.")
+   "File containing pertinent pinhead phrases.")
 
 ;;;###autoload
-(defun yow (&optional interactive)
-  "Return or display a random Zippy quotation."
-  (interactive "p")
-  (let ((yow (cookie
-	      yow-file "Am I CONSING yet?..." "I have SEEN the CONSING!!")))
-    (cond ((not interactive)
+(defun yow (&optional insert)
+  "Return or display a random Zippy quotation.  With prefix arg, insert it."
+  (interactive "P")
+  (let ((yow (cookie yow-file
+		     "Am I CONSING yet?..." "I have SEEN the CONSING!!")))
+    (cond (insert
+	   (insert yow))
+	  ((not (interactive-p))
 	   yow)
 	  ((not (string-match "\n" yow))
 	   (delete-windows-on (get-buffer-create "*Help*"))
@@ -58,6 +60,12 @@
   (read-cookie prompt yow-file
 	       "Am I CONSING yet?..." "I have SEEN the CONSING!!"
 	       require-match))
+
+;;;###autoload
+(defun insert-zippyism (&optional zippyism)
+  "Prompt with completion for a known Zippy quotation, and insert it at point."
+  (interactive (list (read-zippyism "Pinhead wisdom: " t)))
+  (insert zippyism))
 
 ; Yowza!! Feed zippy quotes to the doctor. Watch results.
 ; fun, fun, fun. Entertainment for hours...