changeset 49155:e8a430c172dc

(Buffer-menu-select): Fix for effect of header line.
author Andreas Schwab <schwab@suse.de>
date Sat, 11 Jan 2003 23:15:10 +0000
parents 214790087d8f
children 0fde4bd3cdcb
files lisp/buff-menu.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/buff-menu.el	Sat Jan 11 22:49:02 2003 +0000
+++ b/lisp/buff-menu.el	Sat Jan 11 23:15:10 2003 +0000
@@ -373,7 +373,9 @@
 	(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)