summaryrefslogtreecommitdiff
path: root/lisp/play/yow.el
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
commit2694dfb9cdd2a4b13941b1cd5a9db61f2ac7148c (patch)
treef8161cf0e308a675da4f27a641fad6d2d904277d /lisp/play/yow.el
parentb81d991d750ab6144067be09347295a2dd122716 (diff)
downloademacs-2694dfb9cdd2a4b13941b1cd5a9db61f2ac7148c.tar.gz
(read-zippyism): New function.
Diffstat (limited to 'lisp/play/yow.el')
-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...