Mercurial > emacs

changeset 4737:430cee1995ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read-zippyism): New function.
author Roland McGrath <roland@gnu.org>
date Fri, 17 Sep 1993 18:52:33 +0000
parents 6aeb2227ed30
children 76a2ea569de5
files lisp/play/yow.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/yow.el	Fri Sep 17 18:51:05 1993 +0000
+++ b/lisp/play/yow.el	Fri Sep 17 18:52:33 1993 +0000
@@ -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...