aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader2000-10-03 07:06:41 +0000
committerMiles Bader2000-10-03 07:06:41 +0000
commit1be1456864f586f71dde26495b8a3ad11568eaa4 (patch)
tree1a492ff8ae2d5298ca0187aac79c74efd6e65d01
parent35627f726a9a1d2f5c7a0aa6733ab3a0b3293ae4 (diff)
downloademacs-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.el12
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.