diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-06-17 04:28:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-06-17 04:28:01 +0000 |
| commit | 36570c928fef3913e524f2ff0899d244ed7ca0ea (patch) | |
| tree | b059f9ead0a42a3f2cdf0345e89aa50e19dfa73e /lisp/buff-menu.el | |
| parent | df63ae664efbecba0ee7fdbb63f2d3583c7d6ba2 (diff) | |
| download | emacs-36570c928fef3913e524f2ff0899d244ed7ca0ea.tar.gz | |
(Buffer-menu-bury): New command.
(Buffer-menu-mode-map): Put Buffer-menu-bury on `b'.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index d25cdbdb8ea..e231011e17d 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -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 @@ The current window remains selected." (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) |