# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1200860746 0
# Node ID 8986f1007b891b8d1be8675fc83c669dd8c17d44
# Parent  42e52955b47cc15f355e5a3fd32e9ba3c67ed28d
(ibuffer-mode): Fix last change.

diff -r 42e52955b47c -r 8986f1007b89 lisp/ibuffer.el
--- a/lisp/ibuffer.el	Sun Jan 20 20:24:30 2008 +0000
+++ b/lisp/ibuffer.el	Sun Jan 20 20:25:46 2008 +0000
@@ -2531,9 +2531,11 @@
   (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)