From 1be1456864f586f71dde26495b8a3ad11568eaa4 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 3 Oct 2000 07:06:41 +0000 Subject: [PATCH] (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] --- lisp/play/yow.el | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) 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. -- 2.39.2