diff options
author | Karl Heuer <[email protected]> | 1994-11-08 05:09:01 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1994-11-08 05:09:01 +0000 |
commit | afaa65e4ead67ef0ab93fd7a7b7bf04375616f19 (patch) | |
tree | 9505e343b75925787d9bec495d3129f13747c5a4 | |
parent | 3d102c5902241dc4894c1b7672d91c7d27e2d286 (diff) |
(help-mode): New function.
(help-mode-map): Local keymap for help-mode. Empty for now.
(print-help-return-message): Fix misspelled var.
-rw-r--r-- | lisp/help.el | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 2845ad9641..c11e2cb91b 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))) |