mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(help-mode): New function.

Browse source 
(help-mode-map): Local keymap for help-mode.  Empty for now.
(print-help-return-message): Fix misspelled var.
This commit is contained in:
Karl Heuer 1994-11-08 05:09:01 +00:00
parent 3d102c5902
commit afaa65e4ea
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/help.el
View file

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