mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Chong Yidong 2012-06-09 22:33:44 +08:00
parent 8a26b487f2
commit 4f5d2ba15c
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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

3
lisp/ebuff-menu.el
View File

@ -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))