From: Miles Bader <miles@gnu.org>
Date: Tue, 3 Oct 2000 07:06:41 +0000 (+0000)
Subject: (yow): Don't display multi-line quotations in a *Help* buffer, since the
X-Git-Tag: emacs-pretest-21.0.90~1204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1be1456864f586f71dde26495b8a3ad11568eaa4;p=emacs.git

(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]
---

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