(read-zippyism): New function.

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index fd90d3677f1..d25c6910e69 100644
--- 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))
 
 ; Yowza!! Feed zippy quotes to the doctor. Watch results.
 ; fun, fun, fun. Entertainment for hours...