# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 748291953 0
# Node ID 430cee1995abd22a19e3dd23f27c8927a5276ac9
# Parent  6aeb2227ed308920604c2752a6d60c134d81f159
(read-zippyism): New function.

diff -r 6aeb2227ed30 -r 430cee1995ab lisp/play/yow.el
--- a/lisp/play/yow.el	Fri Sep 17 18:51:05 1993 +0000
+++ b/lisp/play/yow.el	Fri Sep 17 18:52:33 1993 +0000
@@ -52,6 +52,12 @@
 	   (with-output-to-temp-buffer "*Help*"
 	     (princ yow))))))
 
+(defsubst read-zippyism (prompt &optional require-match)
+  "Read a Zippyism from the minibuffer with completion, prompting with PROMPT.
+If optional second arg is non-nil, require input to match a completion."
+  (read-cookie prompt yow-file
+	       "Am I CONSING yet?..." "I have SEEN the CONSING!!"
+	       require-match))
 
 ; Yowza!! Feed zippy quotes to the doctor. Watch results.
 ; fun, fun, fun. Entertainment for hours...