From: Roland McGrath <roland@gnu.org>
Date: Fri, 17 Sep 1993 18:52:33 +0000 (+0000)
Subject: (read-zippyism): New function.
X-Git-Tag: emacs-19.34~11114
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2694dfb9cdd2a4b13941b1cd5a9db61f2ac7148c;p=emacs.git

(read-zippyism): New function.
---

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...