Commit cd5e3fae authored by Eric S. Raymond's avatar Eric S. Raymond
Browse files

*** empty log message ***

parent 0d4ee849
......@@ -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 "\
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment