Mercurial > emacs

changeset 87869:8986f1007b89

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ibuffer-mode): Fix last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 20 Jan 2008 20:25:46 +0000
parents 42e52955b47c
children f58f0ea7f580
files lisp/ibuffer.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)