# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784271341 0
# Node ID 5215339470b8b28a2a491a0731f62f4be6226ee6
# Parent  f0c8517d9d8ab0ff47e6e4cc538ac8a53d4e7523
(help-mode): New function.
(help-mode-map): Local keymap for help-mode.  Empty for now.
(print-help-return-message): Fix misspelled var.

diff -r f0c8517d9d8a -r 5215339470b8 lisp/help.el
--- a/lisp/help.el	Tue Nov 08 02:51:32 1994 +0000
+++ b/lisp/help.el	Tue Nov 08 05:09:01 1994 +0000
@@ -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 @@
 			       (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)))