(read-zippyism): New function.

diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index fd90d3677f1fd17e9fea1c3d81408cde775b4893..d25c6910e6915301a627b380b7e4fdb122088f0d 100644 (file)
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -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))
 \f
 ; Yowza!! Feed zippy quotes to the doctor. Watch results.
 ; fun, fun, fun. Entertainment for hours...