Mercurial > emacs
changeset 918:94b50bbd43c3
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 03 Aug 1992 22:05:14 +0000 |
| parents | d09aafad0e95 |
| children | 567b06901789 |
| files | lisp/ebuff-menu.el lisp/echistory.el lisp/help.el lisp/hexl.el |
| diffstat | 4 files changed, 8 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ebuff-menu.el Mon Aug 03 21:49:55 1992 +0000 +++ b/lisp/ebuff-menu.el Mon Aug 03 22:05:14 1992 +0000 @@ -156,7 +156,7 @@ (fillarray (lookup-key map "\e") 'Electric-buffer-menu-undefined) (define-key map "\C-z" 'suspend-emacs) (define-key map "v" 'Electric-buffer-menu-mode-view-buffer) - (define-key map help-char 'Helper-help) + (define-key map (char-to-string help-char) 'Helper-help) (define-key map "?" 'Helper-describe-bindings) (define-key map "\C-c" nil) (define-key map "\C-c\C-c" 'Electric-buffer-menu-quit)
--- a/lisp/echistory.el Mon Aug 03 21:49:55 1992 +0000 +++ b/lisp/echistory.el Mon Aug 03 22:05:14 1992 +0000 @@ -63,7 +63,7 @@ (define-key electric-history-map "\C-c\C-c" 'Electric-history-quit) (define-key electric-history-map "\C-]" 'Electric-history-quit) (define-key electric-history-map "\C-z" 'suspend-emacs) - (define-key electric-history-map "\C-h" 'Helper-help) + (define-key electric-history-map help-char 'Helper-help) (define-key electric-history-map "?" 'Helper-describe-bindings) (define-key electric-history-map "\e>" 'end-of-buffer) (define-key electric-history-map "\e<" 'beginning-of-buffer) @@ -131,7 +131,7 @@ (defun Electric-history-undefined () (interactive) (ding) - (message "Type C-h for help, ? for commands, C-c to quit, Space to execute") + (message (substitute-command-keys "Type \\[Help-for-help] for help, ? for commands, C-c to quit, Space to execute")) (sit-for 4)) (defun Electric-history-quit ()
--- a/lisp/help.el Mon Aug 03 21:49:55 1992 +0000 +++ b/lisp/help.el Mon Aug 03 22:05:14 1992 +0000 @@ -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-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))