* ebuff-menu.el (electric-buffer-list): Preserve header line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b858b10c3e1ffb95c855da7ae38fede9e0cb7d22..05a9c19bf045f059b6c24da4ec7e985fc5093324 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-06-09  Chong Yidong  <cyd@gnu.org>
+
+       * ebuff-menu.el (electric-buffer-list): Preserve header line.
+
 2012-06-09  Martin Rudalics  <rudalics@gmx.at>
 
        * window.el (special-display-popup-frame): Don't use

diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index e973f45bc44f65bd3c95a34debe5a2c3d1a63605..f71554e9f669e273acbd50eef8aef5e611e57839 100644 (file)
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -121,9 +121,10 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry.
       (setq buffer (list-buffers-noselect arg))
       (Electric-pop-up-window buffer)
       (unwind-protect
-         (progn
+         (let ((header header-line-format))
            (set-buffer buffer)
            (electric-buffer-menu-mode)
+           (setq header-line-format header)
            (goto-char (point-min))
            (if (search-forward "\n." nil t)
                (forward-char -1))