(Buffer-menu-bury): New command.

(Buffer-menu-mode-map): Put Buffer-menu-bury on `b'.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index d25cdbdb8ea08883ef21c87c79e785512c93fc10..e231011e17d5fe51dfecc2d2efead88d3b674b66 100644 (file)
--- 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)))
 \f
 
 (define-key ctl-x-map "\C-b" 'list-buffers)