diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 21:49:55 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 21:49:55 +0000 |
| commit | c3aef0199599851271196aa96072681ed231d1be (patch) | |
| tree | bc17f33e05200e4ec279c5be08a75e4b8ecb24b5 /lisp/help.el | |
| parent | 573cd9243973d16c0d4807d9c5c220fa5df0efad (diff) | |
| download | emacs-c3aef0199599851271196aa96072681ed231d1be.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/help.el b/lisp/help.el index 0ff43dad72b..34b3db6882b 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -26,10 +26,13 @@ (defvar help-map (make-sparse-keymap) "Keymap for characters following the Help key.") -(define-key global-map "\C-h" 'help-command) +(defvar help-key "\C-h" + "*Key used to invoke electric help.") + +(define-key global-map help-key 'help-command) (fset 'help-command help-map) -(define-key help-map "\C-h" 'help-for-help) +(define-key help-map help-key 'help-for-help) (define-key help-map "?" 'help-for-help) (define-key help-map "\C-c" 'describe-copying) @@ -200,7 +203,7 @@ describes the minor mode." (print-help-return-message))) (defun help-for-help () - "You have typed C-h, the help character. Type a Help option: + "You have typed \\[help-for-help], the help character. Type a Help option: A command-apropos. Give a substring, and see a list of commands (functions interactively callable) that contain @@ -228,7 +231,7 @@ C-n print news of recent Emacs changes. C-w print information on absence of warranty for GNU Emacs." (interactive) (message - "A B C F I K L M N S T V W C-c C-d C-n C-w. Type C-h again for more help: ") + "A B C F I K L M N S T V W C-c C-d C-n C-w. Type \\[help-for-help] again for more help: ") (let ((char (read-char))) (if (or (= char ?\C-h) (= char ??)) (save-window-excursion |