]> git.eshelyaron.com Git - emacs.git/commitdiff
(yow): Don't display multi-line quotations in a *Help* buffer, since the
authorMiles Bader <miles@gnu.org>
Tue, 3 Oct 2000 07:06:41 +0000 (07:06 +0000)
committerMiles Bader <miles@gnu.org>
Tue, 3 Oct 2000 07:06:41 +0000 (07:06 +0000)
  echo area will now grow to accommodate them.
  [Note -- I thought I already checked this change, but it seems to have
   mysteriously disappeared]

lisp/play/yow.el

index 42a421f2b6bac958ea448797ab8b713b8bf95279..4e7f88b41698b712a3065ac6fa99a30d7c9079d6 100644 (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
           (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.