From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 9 Nov 1994 06:04:46 +0000 (+0000)
Subject: (print_help): Set help-mode in *Help* buffer.
X-Git-Tag: emacs-19.34~5991
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=622de3e97ca7b36b35282bb62ce9795d10fea957;p=emacs.git

(print_help): Set help-mode in *Help* buffer.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 4de3e805817..80801cbd169 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1917,7 +1917,11 @@ Lisp_Object
 print_help (object)
      Lisp_Object object;
 {
+  struct buffer *old = current_buffer;
   Fprinc (object, Qnil);
+  set_buffer_internal (XBUFFER (Vstandard_output));
+  call0 (intern ("help-mode"));
+  set_buffer_internal (old);
   return Qnil;
 }