(Electric-buffer-menu-mode):

Preserve value of buffer-local var header-line-format.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5e5cc56f8ae2827207743393e1dc02ca74b8b85..17a16d0cfb97c9855144a0db92f46022b2b6d830 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-10  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * ebuff-menu.el (Electric-buffer-menu-mode):
+       Preserve value of buffer-local var header-line-format.
+
 2005-01-09  Jay Belanger  <belanger@truman.edu>
 
        * calc/calc.el (calc-mode-var-list-restore-saved-values):

diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index 2bfbace4c4be469cce42336e973a66e333192137..bfac2afe6e9b3ab27aba721dd4e65af0f5b0dd49 100644 (file)
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -149,7 +149,9 @@ Letters do not insert themselves; instead, they are commands.
 
 Entry to this mode via command `electric-buffer-list' calls the value of
 `electric-buffer-menu-mode-hook'."
-  (kill-all-local-variables)
+  (let ((saved header-line-format))
+    (kill-all-local-variables)
+    (setq header-line-format saved))
   (use-local-map electric-buffer-menu-mode-map)
   (setq mode-name "Electric Buffer Menu")
   (setq mode-line-buffer-identification "Electric Buffer List")