summaryrefslogtreecommitdiff
path: root/lisp/play
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>1993-09-17 18:52:33 +0000
committerRoland McGrath <roland@gnu.org>1993-09-17 18:52:33 +0000
commitba806ad8d6bae1db65a539e692ea2862d2fec863 (patch)
tree3f6deaad61c666b7c63550276d0488b596d1f82c /lisp/play
parent07823788b00748b57e03ca317c3f6c54725cb5b1 (diff)
downloademacs-ba806ad8d6bae1db65a539e692ea2862d2fec863.tar.gz
(read-zippyism): New function.
Diffstat (limited to 'lisp/play')
-rw-r--r--lisp/play/yow.el6
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...