From 4f5d2ba15c0dbe248fea1faea9a319435b5fe31a Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 9 Jun 2012 22:33:44 +0800 Subject: [PATCH] * ebuff-menu.el (electric-buffer-list): Preserve header line. --- lisp/ChangeLog | 4 ++++ lisp/ebuff-menu.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * ebuff-menu.el (electric-buffer-list): Preserve header line. + 2012-06-09 Martin Rudalics * 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)) -- 2.39.5