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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b858b10c3e1..05a9c19bf04 100644
--- 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 e973f45bc44..f71554e9f66 100644
--- 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))