Mercurial > emacs

changeset 32092:b0a117b99837

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 0c00f9d38595
children 5c36fa51ee96
files lisp/play/yow.el
diffstat 1 files changed, 2 insertions(+), 10 deletions(-) [+]
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.