(electric-buffer-list): Respect `Buffer-menu-use-header-line'.

(electric-buffer-menu-looper): Likewise.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66baae8c0f4..ef55de4e99d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2003-03-06  John Paul Wallington  <jpw@gnu.org>
 
+        * ebuff-menu.el (electric-buffer-list): Respect
+        `Buffer-menu-use-header-line'.
+        (electric-buffer-menu-looper): Likewise.
+
         * buff-menu.el (Buffer-menu-mode-map): Add docstring.
         (Buffer-menu-buffer): Fix indentation.
         (list-buffers-noselect): Calculate header-line spacing to take
@@ -116,7 +120,7 @@
 
         * play/gamegrid.el (gamegrid-add-score): Add info to docstring.
         (gamegrid-add-score-with-update-game-score-1): New function,
-        factored out of `gamegriod-add-score-with-update-game-score'.
+        factored out of `gamegrid-add-score-with-update-game-score'.
         (gamegrid-add-score-with-update-game-score): Use it.  Fall back on
         `gamegrid-add-score-insecure' if the requested file does not exist
         in $(gamedir), in case the user has installed a game on his own.
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index d87a2124546..21a366f944d 100644
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -74,7 +74,8 @@ Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
                                (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 @@ Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
          (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)