Mercurial > emacs
changeset 916:938f166a0874
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 03 Aug 1992 21:32:21 +0000 |
| parents | a50a10722208 |
| children | d09aafad0e95 |
| files | lisp/ebuff-menu.el lisp/hexl.el |
| diffstat | 2 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ebuff-menu.el Mon Aug 03 20:57:38 1992 +0000 +++ b/lisp/ebuff-menu.el Mon Aug 03 21:32:21 1992 +0000 @@ -226,7 +226,7 @@ (eq (key-binding " ") 'Electric-buffer-menu-select) (eq (key-binding help-key) 'Helper-help) (eq (key-binding "?") 'Helper-describe-bindings)) - "Type C-c C-c to exit, Space to select, C-h for help, ? for commands" + (substitute-command-keys "Type C-c C-c to exit, Space to select, \\[Helper-help] for help, ? for commands") (substitute-command-keys "\ Type \\[Electric-buffer-menu-quit] to exit, \ \\[Electric-buffer-menu-select] to select, \
--- a/lisp/hexl.el Mon Aug 03 20:57:38 1992 +0000 +++ b/lisp/hexl.el Mon Aug 03 21:32:21 1992 +0000 @@ -67,6 +67,9 @@ (defvar hexl-max-address 0 "Maximum offset into hexl buffer.") +(defvar help-key "\C-h" + "*Key used to invoke electric help.") + (defvar hexl-mode-map nil) ;; routines @@ -586,8 +589,8 @@ (define-key hexl-mode-map "\C-e" 'hexl-end-of-line) (define-key hexl-mode-map "\C-f" 'hexl-forward-char) - (if (not (eq (key-binding "\C-h") 'help-command)) - (define-key hexl-mode-map "\C-h" 'undefined)) + (if (not (eq (key-binding help-key) 'help-command)) + (define-key hexl-mode-map help-key 'undefined)) (define-key hexl-mode-map "\C-i" 'hexl-self-insert-command) (define-key hexl-mode-map "\C-j" 'hexl-self-insert-command)