# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1046947820 0
# Node ID af49d6f1e6cc401a11d9084b085483c948238a1d
# Parent  85feb0c5366efbe841229f3bba0e760cbf9f103d
(electric-buffer-list): Respect `Buffer-menu-use-header-line'.
(electric-buffer-menu-looper): Likewise.

diff -r 85feb0c5366e -r af49d6f1e6cc lisp/ebuff-menu.el
--- a/lisp/ebuff-menu.el	Thu Mar 06 03:53:12 2003 +0000
+++ b/lisp/ebuff-menu.el	Thu Mar 06 10:50:20 2003 +0000
@@ -74,7 +74,8 @@
 			       (throw 'electric-buffer-menu-select nil)))
 		    (let ((start-point (point))
 			  (first (progn (goto-char (point-min))
-					(forward-line 2)
+					(unless Buffer-menu-use-header-line
+					  (forward-line 2))
 					(point)))
 			  (last (progn (goto-char (point-max))
 				       (forward-line -1)
@@ -112,7 +113,8 @@
 	 (signal (car condition) (cdr condition)))
 	((< (point) (car state))
 	 (goto-char (point-min))
-	 (forward-line 2))
+	 (unless Buffer-menu-use-header-line
+	   (forward-line 2)))
 	((> (point) (cdr state))
 	 (goto-char (point-max))
 	 (forward-line -1)