# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784361086 0
# Node ID 0299d64cdd07c390b42845972af195b2b9564629
# Parent  f918fd077a9f6571bcf1d1666040b85c51d39d96
(print_help): Set help-mode in *Help* buffer.

diff -r f918fd077a9f -r 0299d64cdd07 src/keyboard.c
--- a/src/keyboard.c	Wed Nov 09 05:56:23 1994 +0000
+++ b/src/keyboard.c	Wed Nov 09 06:04:46 1994 +0000
@@ -1917,7 +1917,11 @@
 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;
 }