Mercurial > emacs
diff lisp/play/yow.el @ 32092:b0a117b99837
(yow): Don't display multi-line quotations in a *Help* buffer, since the
echo area will now grow to accommodate them.
[Note -- I thought I already checked this change, but it seems to have
mysteriously disappeared]
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 03 Oct 2000 07:06:41 +0000 |
| parents | f1fc193b6958 |
| children | ca00f40d366e |
line wrap: on
line diff
--- a/lisp/play/yow.el Tue Oct 03 01:56:53 2000 +0000 +++ b/lisp/play/yow.el Tue Oct 03 07:06:41 2000 +0000 @@ -1,6 +1,6 @@ ;;; yow.el --- quote random zippyisms -;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Author: Richard Mlynarik @@ -57,16 +57,8 @@ (insert yow)) ((not (interactive-p)) yow) - ((not (string-match "\n" yow)) - (delete-windows-on (get-buffer-create "*Help*")) - (message "%s" yow)) (t - (message "Yow!") - (with-output-to-temp-buffer "*Help*" - (princ yow) - (save-excursion - (set-buffer standard-output) - (help-mode))))))) + (message "%s" yow))))) (defsubst read-zippyism (prompt &optional require-match) "Read a Zippyism from the minibuffer with completion, prompting with PROMPT.