diff options
| author | Miles Bader <[email protected]> | 2000-10-03 07:06:41 +0000 |
|---|---|---|
| committer | Miles Bader <[email protected]> | 2000-10-03 07:06:41 +0000 |
| commit | 1be1456864f586f71dde26495b8a3ad11568eaa4 (patch) | |
| tree | 1a492ff8ae2d5298ca0187aac79c74efd6e65d01 /lisp/play | |
| parent | 35627f726a9a1d2f5c7a0aa6733ab3a0b3293ae4 (diff) | |
(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]
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/yow.el | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/lisp/play/yow.el b/lisp/play/yow.el index 42a421f2b6..4e7f88b416 100644 --- a/lisp/play/yow.el +++ b/lisp/play/yow.el @@ -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. |