Mercurial > emacs

changeset 9833:5215339470b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-mode): New function. (help-mode-map): Local keymap for help-mode. Empty for now. (print-help-return-message): Fix misspelled var.
author Karl Heuer <kwzh@gnu.org>
date Tue, 08 Nov 1994 05:09:01 +0000
parents f0c8517d9d8a
children 5be536b91960
files lisp/help.el
diffstat 1 files changed, 16 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))