From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 17 Jun 1997 19:32:04 +0000 (+0000)
Subject: (Buffer-menu-mode): Doc fix.
X-Git-Tag: emacs-20.1~1666
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a59faabe2ba6554a883ac3ae12d1e0c80fefe9a4;p=emacs.git

(Buffer-menu-mode): Doc fix.
(Buffer-menu-bury): Move the line to the end.
---

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index e231011e17d..b03ccdb4eb4 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -125,7 +125,8 @@ Letters do not insert themselves; instead, they are commands.
   With prefix argument, also move up one line.
 \\[Buffer-menu-backup-unmark] -- back up a line and remove marks.
 \\[Buffer-menu-toggle-read-only] -- toggle read-only status of buffer on this line.
-\\[Buffer-menu-revert] -- update the list of buffers."
+\\[Buffer-menu-revert] -- update the list of buffers.
+\\[Buffer-menu-bury] -- bury the buffer listed on this line."
   (kill-all-local-variables)
   (use-local-map Buffer-menu-mode-map)
   (setq major-mode 'Buffer-menu-mode)
@@ -429,7 +430,18 @@ The current window remains selected."
 (defun Buffer-menu-bury ()
   "Bury the buffer listed on this line."
   (interactive)
-  (bury-buffer (Buffer-menu-buffer t)))
+  (beginning-of-line)
+  (if (looking-at " [-M]")		;header lines
+      (ding)
+    (save-excursion
+      (beginning-of-line)
+      (bury-buffer (Buffer-menu-buffer t))
+      (let ((line (buffer-substring (point) (progn (forward-line 1) (point))))
+            (buffer-read-only nil))
+        (delete-region (point) (progn (forward-line -1) (point)))
+        (goto-char (point-max))
+        (insert line))
+      (message "Buried buffer moved to the end"))))
 
 
 (define-key ctl-x-map "\C-b" 'list-buffers)