From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 20 Jan 2008 20:25:46 +0000 (+0000)
Subject: (ibuffer-mode): Fix last change.
X-Git-Tag: emacs-pretest-23.0.90~8485
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d7ba920f32752273262e7cdb521ba71aaf3d81e;p=emacs.git

(ibuffer-mode): Fix last change.
---

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)