(help-mode): New function.

(help-mode-map): Local keymap for help-mode.  Empty for now.
(print-help-return-message): Fix misspelled var.

1 files changed, 16 insertions, 1 deletions

diff --git a/lisp/help.el b/lisp/help.el
index 2845ad96412..c11e2cb91bc 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -35,6 +35,9 @@
 (defvar help-map (make-sparse-keymap)
   "Keymap for characters following the Help key.")
 
+(defvar help-mode-map (make-sparse-keymap)
+  "Keymap for help mode.")
+
 (define-key global-map (char-to-string help-char) 'help-command)
 (fset 'help-command help-map)
 
@@ -80,6 +83,18 @@
 
 (define-key help-map "q" 'help-quit)
 
+(defun help-mode ()
+  "Major mode for viewing help text.
+Entry to this mode runs the normal hook `help-mode-hook'.
+Commands:
+\\{help-mode-map}"
+  (interactive)
+  (kill-all-local-variables)
+  (use-local-map help-mode-map)
+  (setq mode-name "Help")
+  (setq major-mode 'help-mode)
+  (run-hooks 'help-mode-hook))
+
 (defun help-quit ()
   (interactive)
   nil)
@@ -145,7 +160,7 @@ If FUNCTION is nil, applies `message' to it, thus printing it."
                                (tail special-display-regexps)
                                (name (buffer-name standard-output)))
                            (while (and tail (not found))
-                             (if (or (and (consp (car taiul))
+                             (if (or (and (consp (car tail))
                                           (string-match (car (car tail)) name))
                                      (and (stringp (car tail))
                                           (string-match (car tail) name)))