# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866521681 0
# Node ID 4f78346eb7344b8bbbf1acf97b07d38a8091eeb0
# Parent  7509948b0121c9bebd568ee3ee7f0eea62dfa7bd
(Buffer-menu-bury): New command.
(Buffer-menu-mode-map): Put Buffer-menu-bury on `b'.

diff -r 7509948b0121 -r 4f78346eb734 lisp/buff-menu.el
--- 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)