# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1041808499 0
# Node ID 8b38bac9826acbf77682724c19c7a59ec1f6d80f
# Parent  6953cce6f3c83bf6c535ea1ce049ead65911a244
(Buffer-menu-execute): Fix for effect of header
line.

diff -r 6953cce6f3c8 -r 8b38bac9826a lisp/buff-menu.el
--- a/lisp/buff-menu.el	Sun Jan 05 23:14:20 2003 +0000
+++ b/lisp/buff-menu.el	Sun Jan 05 23:14:59 2003 +0000
@@ -332,7 +332,8 @@
   (interactive)
   (save-excursion
     (goto-char (point-min))
-    (forward-line 1)
+    (unless Buffer-menu-use-header-line
+      (forward-line 1))
     (while (re-search-forward "^..S" nil t)
       (let ((modp nil))
 	(save-excursion
@@ -344,10 +345,11 @@
 	  (insert (if modp ?* ? ))))))
   (save-excursion
     (goto-char (point-min))
-    (forward-line 1)
+    (unless Buffer-menu-use-header-line
+      (forward-line 1))
     (let ((buff-menu-buffer (current-buffer))
 	  (buffer-read-only nil))
-      (while (search-forward "\nD" nil t)
+      (while (re-search-forward "^D" nil t)
 	(forward-char -1)
 	(let ((buf (Buffer-menu-buffer nil)))
 	  (or (eq buf nil)
@@ -357,7 +359,8 @@
 	    (progn (delete-char 1)
 		   (insert ? ))
 	  (delete-region (point) (progn (forward-line 1) (point)))
-	    (forward-char -1)))))))
+	    (unless (bobp)
+	      (forward-char -1))))))))
 
 (defun Buffer-menu-select ()
   "Select this line's buffer; also display buffers marked with `>'.
@@ -551,6 +554,7 @@
   (let* ((old-buffer (current-buffer))
 	 (standard-output standard-output)
 	 (mode-end (make-string (- Buffer-menu-mode-width 2) ? ))
+	 ;; Fixme: This is wrong for left-hand scroll-bars.
 	 (header (concat "CRM " (Buffer-menu-buffer+size "Buffer" "Size")
 			 "  Mode" mode-end "File\n"))
 	 list desired-point name file mode)