mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(yow): Don't display multi-line quotations in a *Help* buffer, since the

Browse source 
echo area will now grow to accommodate them.
  [Note -- I thought I already checked this change, but it seems to have
   mysteriously disappeared]
This commit is contained in:
Miles Bader 2000-10-03 07:06:41 +00:00
parent 35627f726a
commit 1be1456864
1 changed files with 2 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/play/yow.el
View file

@ -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.