diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 20:57:38 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-08-03 20:57:38 +0000 |
| commit | cd5e3fae77409adefad2ec1041020f6e03679c38 (patch) | |
| tree | b829f9261ae6b63d52c16c6b8ae8f833de0507e6 /lisp/ebuff-menu.el | |
| parent | 0d4ee84900adb489c6fbc1d7ddd6b25f8fb2c515 (diff) | |
| download | emacs-cd5e3fae77409adefad2ec1041020f6e03679c38.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/ebuff-menu.el')
| -rw-r--r-- | lisp/ebuff-menu.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el index 6b5a8b6fc56..8a0c469f938 100644 --- a/lisp/ebuff-menu.el +++ b/lisp/ebuff-menu.el @@ -29,6 +29,9 @@ (require 'electric) +(defvar help-key "\C-h" + "*Key used to invoke electric help.") + ;; this depends on the format of list-buffers (from src/buffer.c) and ;; on stuff in lisp/buff-menu.el @@ -156,7 +159,7 @@ electric-buffer-menu-mode-hook if it is non-nil." (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 "\C-h" 'Helper-help) + (define-key map help-key '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) @@ -221,7 +224,7 @@ Does not execute select, save, or delete commands." (ding) (message (if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit) (eq (key-binding " ") 'Electric-buffer-menu-select) - (eq (key-binding "\C-h") 'Helper-help) + (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 "\ |