Mercurial > emacs
comparison lisp/play/yow.el @ 4737:430cee1995ab
(read-zippyism): New function.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Fri, 17 Sep 1993 18:52:33 +0000 |
| parents | 507f64624555 |
| children | dc61f16f4f79 |
comparison
equal
deleted
inserted
replaced
| 4736:6aeb2227ed30 | 4737:430cee1995ab |
|---|---|
| 50 (t | 50 (t |
| 51 (message "Yow!") | 51 (message "Yow!") |
| 52 (with-output-to-temp-buffer "*Help*" | 52 (with-output-to-temp-buffer "*Help*" |
| 53 (princ yow)))))) | 53 (princ yow)))))) |
| 54 | 54 |
| 55 (defsubst read-zippyism (prompt &optional require-match) | |
| 56 "Read a Zippyism from the minibuffer with completion, prompting with PROMPT. | |
| 57 If optional second arg is non-nil, require input to match a completion." | |
| 58 (read-cookie prompt yow-file | |
| 59 "Am I CONSING yet?..." "I have SEEN the CONSING!!" | |
| 60 require-match)) | |
| 55 | 61 |
| 56 ; Yowza!! Feed zippy quotes to the doctor. Watch results. | 62 ; Yowza!! Feed zippy quotes to the doctor. Watch results. |
| 57 ; fun, fun, fun. Entertainment for hours... | 63 ; fun, fun, fun. Entertainment for hours... |
| 58 ; | 64 ; |
| 59 ; written by Kayvan Aghaiepour | 65 ; written by Kayvan Aghaiepour |