Mercurial > emacs
changeset 18278:4f78346eb734
(Buffer-menu-bury): New command.
(Buffer-menu-mode-map): Put Buffer-menu-bury on `b'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 17 Jun 1997 04:28:01 +0000 |
| parents | 7509948b0121 |
| children | a9c40a80c9b1 |
| files | lisp/buff-menu.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/buff-menu.el Tue Jun 17 04:27:37 1997 +0000 +++ b/lisp/buff-menu.el Tue Jun 17 04:28:01 1997 +0000 @@ -91,6 +91,7 @@ (define-key Buffer-menu-mode-map "m" 'Buffer-menu-mark) (define-key Buffer-menu-mode-map "t" 'Buffer-menu-visit-tags-table) (define-key Buffer-menu-mode-map "%" 'Buffer-menu-toggle-read-only) + (define-key Buffer-menu-mode-map "b" 'Buffer-menu-bury) (define-key Buffer-menu-mode-map "g" 'Buffer-menu-revert) (define-key Buffer-menu-mode-map [mouse-2] 'Buffer-menu-mouse-select) ) @@ -425,6 +426,10 @@ (delete-char 1) (insert char)))))) +(defun Buffer-menu-bury () + "Bury the buffer listed on this line." + (interactive) + (bury-buffer (Buffer-menu-buffer t))) (define-key ctl-x-map "\C-b" 'list-buffers)