[Emacs-diffs] /srv/bzr/emacs/trunk r108543: * ebuff-menu.el (electric-buffer-list): Preserve header line.

[Chong Yidong]

------------------------------------------------------------
revno: 108543
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-06-09 22:33:44 +0800
message:
  * ebuff-menu.el (electric-buffer-list): Preserve header line.
modified:
  lisp/ChangeLog
  lisp/ebuff-menu.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-09 11:53:31 +0000
+++ b/lisp/ChangeLog    2012-06-09 14:33:44 +0000
@@ -1,3 +1,7 @@
+2012-06-09  Chong Yidong  <address@hidden>
+
+       * ebuff-menu.el (electric-buffer-list): Preserve header line.
+
 2012-06-09  Martin Rudalics  <address@hidden>
 
        * window.el (special-display-popup-frame): Don't use

=== modified file 'lisp/ebuff-menu.el'
--- a/lisp/ebuff-menu.el        2012-05-13 14:23:45 +0000
+++ b/lisp/ebuff-menu.el        2012-06-09 14:33:44 +0000
@@ -121,9 +121,10 @@
       (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))