diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-06-09 22:33:44 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-06-09 22:33:44 +0800 |
| commit | 4f5d2ba15c0dbe248fea1faea9a319435b5fe31a (patch) | |
| tree | b30331d9d634e0bb829ba5099c1181220a566978 /lisp/ebuff-menu.el | |
| parent | 8a26b487f280e01009346863c04f2577b1fa850f (diff) | |
| download | emacs-4f5d2ba15c0dbe248fea1faea9a319435b5fe31a.tar.gz | |
* ebuff-menu.el (electric-buffer-list): Preserve header line.
Diffstat (limited to 'lisp/ebuff-menu.el')
| -rw-r--r-- | lisp/ebuff-menu.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |