Mercurial > emacs

changeset 915:a50a10722208

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Mon, 03 Aug 1992 20:57:38 +0000
parents 3122c9756a56
children 938f166a0874
files lisp/ebuff-menu.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ebuff-menu.el	Mon Aug 03 19:20:08 1992 +0000
+++ b/lisp/ebuff-menu.el	Mon Aug 03 20:57:38 1992 +0000
@@ -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 @@
     (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 @@
   (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 "\