diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 21:32:21 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 21:32:21 +0000 |
| commit | 573cd9243973d16c0d4807d9c5c220fa5df0efad (patch) | |
| tree | 394fc9c0acec523c81676720fe2ab12494c3cf17 | |
| parent | cd5e3fae77409adefad2ec1041020f6e03679c38 (diff) | |
| download | emacs-573cd9243973d16c0d4807d9c5c220fa5df0efad.tar.gz | |
*** empty log message ***
| -rw-r--r-- | lisp/ebuff-menu.el | 2 | ||||
| -rw-r--r-- | lisp/hexl.el | 7 |
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el index 8a0c469f938..de244ee026b 100644 --- a/lisp/ebuff-menu.el +++ b/lisp/ebuff-menu.el @@ -226,7 +226,7 @@ Does not execute select, save, or delete commands." (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, \ diff --git a/lisp/hexl.el b/lisp/hexl.el index c9d0c023de4..e5a2b1e0e0e 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -67,6 +67,9 @@ and \"-de\" when dehexlfying a buffer.") (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 @@ You may also type up to 3 octal digits, to insert a character with that code" (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) |