From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 17 Jun 1997 04:28:01 +0000 (+0000)
Subject: (Buffer-menu-bury): New command.
X-Git-Tag: emacs-20.1~1668
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36570c928fef3913e524f2ff0899d244ed7ca0ea;p=emacs.git

(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 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)