From: Andreas Schwab <schwab@suse.de>
Date: Sat, 11 Jan 2003 23:15:10 +0000 (+0000)
Subject: (Buffer-menu-select): Fix for effect of header line.
X-Git-Tag: ttn-vms-21-2-B4~11737
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9fb4690e71e4ccf177374bcbb09ef2bc4a205e2;p=emacs.git

(Buffer-menu-select): Fix for effect of header line.
---

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index c7bb7009241..696b7245d16 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -373,7 +373,9 @@ in the selected frame."
 	(others ())
 	tem)
     (goto-char (point-min))
-    (while (search-forward "\n>" nil t)
+    (unless Buffer-menu-use-header-line
+      (forward-line 1))
+    (while (re-search-forward "^>" nil t)
       (setq tem (Buffer-menu-buffer t))
       (let ((buffer-read-only nil))
 	(delete-char -1)