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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66baae8c0f4a5503a5578e09c1785efe1c27577c..ef55de4e99dcb9020e4d2010685a52eedf6b6840 100644 (file)
--- 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 d87a2124546e00e817a48983948e4c28f11ea19b..21a366f944de7049c15aa9c5bf9e82c811ec33b1 100644 (file)
--- 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)