Mercurial > emacs

changeset 9841:34901f215641

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(yow): Set help-mode in *Help* buffer.
author Karl Heuer <kwzh@gnu.org>
date Wed, 09 Nov 1994 05:44:20 +0000
parents 81829106d303
children 6f9b0830f124
files lisp/play/yow.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/yow.el	Wed Nov 09 03:43:30 1994 +0000
+++ b/lisp/play/yow.el	Wed Nov 09 05:44:20 1994 +0000
@@ -53,7 +53,10 @@
 	  (t
 	   (message "Yow!")
 	   (with-output-to-temp-buffer "*Help*"
-	     (princ yow))))))
+	     (princ yow)
+	     (save-excursion
+	       (set-buffer standard-output)
+	       (help-mode)))))))
 
 (defsubst read-zippyism (prompt &optional require-match)
   "Read a Zippyism from the minibuffer with completion, prompting with PROMPT.