# HG changeset patch # User Miles Bader # Date 970556801 0 # Node ID b0a117b99837cf79a2916650887a690066ea72e4 # Parent 0c00f9d38595a09f1133eb65acafabefcb0cfa4f (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 -r 0c00f9d38595 -r b0a117b99837 lisp/play/yow.el --- 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.