From 2694dfb9cdd2a4b13941b1cd5a9db61f2ac7148c Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Fri, 17 Sep 1993 18:52:33 +0000 Subject: [PATCH] (read-zippyism): New function. --- lisp/play/yow.el | 6 ++++++ 1 file changed, 6 insertions(+) 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... -- 2.39.5