diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 22:05:14 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 22:05:14 +0000 |
| commit | 2d36282b87aa7bb2e0248a4897dc0f742ff0ceb6 (patch) | |
| tree | a8c39ef1dc2f6834429d78c820d06e918926dd08 /lisp/help.el | |
| parent | 9cac0226c43a7a4687346b4a600903a4f30ed5dc (diff) | |
| download | emacs-2d36282b87aa7bb2e0248a4897dc0f742ff0ceb6.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/help.el b/lisp/help.el index 34b3db6882b..29cf96e42fc 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -26,13 +26,10 @@ (defvar help-map (make-sparse-keymap) "Keymap for characters following the Help key.") -(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 help-key 'help-for-help) +(define-key help-map help-char 'help-for-help) (define-key help-map "?" 'help-for-help) (define-key help-map "\C-c" 'describe-copying) @@ -230,17 +227,17 @@ C-d print Emacs ordering information. 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 \\[help-for-help] again for more help: ") + (message (substitute-command-keys + "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 ??)) + (if (or (= char help-char) (= char ??)) (save-window-excursion (switch-to-buffer "*Help*") (delete-other-windows) (erase-buffer) (insert (documentation 'help-for-help)) (goto-char (point-min)) - (while (memq char '(?\C-h ?? ?\C-v ?\ ?\177 ?\M-v)) + (while (memq char (cons help-char '(?? ?\C-v ?\ ?\177 ?\M-v))) (if (memq char '(?\C-v ?\ )) (scroll-up)) (if (memq char '(?\177 ?\M-v)) |