mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Some cleanups for the buffer menu and electric buffer menu.

Browse Source 
* lisp/buff-menu.el (list-buffers): Move C-x C-b binding from
buff-menu.el to bindings.el.

* lisp/ebuff-menu.el (Electric-buffer-menu-undefined): Use the
:advertised-binding feature.
This commit is contained in:
Chong Yidong 2012-05-06 16:43:46 +08:00
parent 6632d36111
commit 3cc99f68ad
4 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -15,6 +15,12 @@
functions.
(tabulated-list-sort-column): New command (Bug#11337).
* buff-menu.el (list-buffers): Move C-x C-b binding from
buff-menu.el to bindings.el.
* ebuff-menu.el (Electric-buffer-menu-undefined): Use the
:advertised-binding feature.
2012-05-06 Troels Nielsen <bn.troels@gmail.com> (tiny change)
* progmodes/compile.el (compilation-internal-error-properties):

3
lisp/bindings.el
View File

@ -40,7 +40,7 @@ corresponding to the mode line clicked."
(interactive "e")
(save-selected-window
(select-window (posn-window (event-start event)))
(toggle-read-only)
(with-no-warnings (toggle-read-only))
(force-mode-line-update)))
@ -1190,6 +1190,7 @@ if `inhibit-field-text-motion' is non-nil."
;; (define-key ctl-x-map "\-" 'inverse-add-global-abbrev)
(define-key esc-map "'" 'abbrev-prefix-mark)
(define-key ctl-x-map "'" 'expand-abbrev)
(define-key ctl-x-map "\C-b" 'list-buffers)
(define-key ctl-x-map "z" 'repeat)

3
lisp/buff-menu.el
View File

@ -640,9 +640,6 @@ The current window remains selected."
(view-buffer-other-window (Buffer-menu-buffer t)))
;;;###autoload
(define-key ctl-x-map "\C-b" 'list-buffers)
;;;###autoload
(defun list-buffers (&optional files-only)
"Display a list of names of existing buffers.

14
lisp/ebuff-menu.el
View File

@ -85,6 +85,11 @@
(define-key map [mouse-2] 'Electric-buffer-menu-mouse-select)
map))
(put 'Electric-buffer-menu-quit :advertised-binding "\C-c\C-c")
(put 'Electric-buffer-menu-select :advertised-binding " ")
(put 'Helper-help :advertised-binding (char-to-string help-char))
(put 'Helper-describe-bindings :advertised-binding "?")
(defvar electric-buffer-menu-mode-hook nil
"Normal hook run by `electric-buffer-list'.")
@ -251,15 +256,10 @@ Skip execution of select, save, and delete commands."
(interactive)
(ding)
(message "%s"
(if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit)
(eq (key-binding " ") 'Electric-buffer-menu-select)
(eq (key-binding (char-to-string help-char)) 'Helper-help)
(eq (key-binding "?") 'Helper-describe-bindings))
(substitute-command-keys "Type C-c C-c to exit, Space to select, \\[Helper-help] for help, ? for commands")
(substitute-command-keys "\
(substitute-command-keys "\
Type \\[Electric-buffer-menu-quit] to exit, \
\\[Electric-buffer-menu-select] to select, \
\\[Helper-help] for help, \\[Helper-describe-bindings] for commands.")))
\\[Helper-help] for help, \\[Helper-describe-bindings] for commands."))
(sit-for 4))
(defun Electric-buffer-menu-mode-view-buffer ()