diff options
| author | Miles Bader | 2000-10-03 07:06:41 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-10-03 07:06:41 +0000 |
| commit | 1be1456864f586f71dde26495b8a3ad11568eaa4 (patch) | |
| tree | 1a492ff8ae2d5298ca0187aac79c74efd6e65d01 | |
| parent | 35627f726a9a1d2f5c7a0aa6733ab3a0b3293ae4 (diff) | |
| download | emacs-1be1456864f586f71dde26495b8a3ad11568eaa4.tar.gz emacs-1be1456864f586f71dde26495b8a3ad11568eaa4.zip | |
(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]
| -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 42a421f2b6b..4e7f88b4169 100644 --- a/lisp/play/yow.el +++ b/lisp/play/yow.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; yow.el --- quote random zippyisms | 1 | ;;; yow.el --- quote random zippyisms |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: FSF | 5 | ;; Maintainer: FSF |
| 6 | ;; Author: Richard Mlynarik | 6 | ;; Author: Richard Mlynarik |
| @@ -57,16 +57,8 @@ | |||
| 57 | (insert yow)) | 57 | (insert yow)) |
| 58 | ((not (interactive-p)) | 58 | ((not (interactive-p)) |
| 59 | yow) | 59 | yow) |
| 60 | ((not (string-match "\n" yow)) | ||
| 61 | (delete-windows-on (get-buffer-create "*Help*")) | ||
| 62 | (message "%s" yow)) | ||
| 63 | (t | 60 | (t |
| 64 | (message "Yow!") | 61 | (message "%s" yow))))) |
| 65 | (with-output-to-temp-buffer "*Help*" | ||
| 66 | (princ yow) | ||
| 67 | (save-excursion | ||
| 68 | (set-buffer standard-output) | ||
| 69 | (help-mode))))))) | ||
| 70 | 62 | ||
| 71 | (defsubst read-zippyism (prompt &optional require-match) | 63 | (defsubst read-zippyism (prompt &optional require-match) |
| 72 | "Read a Zippyism from the minibuffer with completion, prompting with PROMPT. | 64 | "Read a Zippyism from the minibuffer with completion, prompting with PROMPT. |