# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784359860 0
# Node ID 34901f21564145fca8a86072daebf8abd9531a3d
# Parent  81829106d303ab2553bb6db77155015d13d8496a
(yow): Set help-mode in *Help* buffer.

diff -r 81829106d303 -r 34901f215641 lisp/play/yow.el
--- 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.