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

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 1a304d2..1e70992 100644 (file)
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -121,6 +121,7 @@ and then returns."
                                      config nil))
                           (erase-buffer)
                           (insert help-screen)
+                          (help-mode)
                           (goto-char (point-min))
                           (while (or (memq char (cons help-char '(?? ?\C-v ?\ ?\177 delete ?\M-v)))
                                      (eq (car-safe char) 'switch-frame)