diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-20 20:25:46 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-20 20:25:46 +0000 |
| commit | 5d7ba920f32752273262e7cdb521ba71aaf3d81e (patch) | |
| tree | 49f57320ecfa22614c2e2c150419264ff29ac861 /lisp/ibuffer.el | |
| parent | d827669cbba06c3998e19358f4d259a21d22a770 (diff) | |
| download | emacs-5d7ba920f32752273262e7cdb521ba71aaf3d81e.tar.gz | |
(ibuffer-mode): Fix last change.
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 9765c307061..dcf840fc584 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -2531,9 +2531,11 @@ will be inserted before the group at point." (setq header-line-format (if ibuffer-use-header-line ;; Display the part that won't be in the mode-line. - (mapcar (lambda (elem) (if (eq (car-safe elem) 'header-line-format) - (nth 2 elem) elem)) - mode-line-process))) + (list* "" mode-name + (mapcar (lambda (elem) + (if (eq (car-safe elem) 'header-line-format) + (nth 2 elem) elem)) + mode-line-process)))) (setq buffer-read-only t) (buffer-disable-undo) |