From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 8 Nov 1994 05:09:01 +0000 (+0000)
Subject: (help-mode): New function.
X-Git-Tag: emacs-19.34~6022
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=afaa65e4ead67ef0ab93fd7a7b7bf04375616f19;p=emacs.git

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

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)))