[Emacs-diffs] Changes to emacs/lisp/ibuffer.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/01/20 20:25:47

Index: ibuffer.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ibuffer.el,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -b -r1.95 -r1.96
--- ibuffer.el  20 Jan 2008 20:23:45 -0000      1.95
+++ ibuffer.el  20 Jan 2008 20:25:46 -0000      1.96
@@ -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)
+            (list* "" mode-name
+                   (mapcar (lambda (elem)
+                             (if (eq (car-safe elem) 'header-line-format)
                                   (nth 2 elem) elem))
-                    mode-line-process)))
+                           mode-line-process))))
 
   (setq buffer-read-only t)
   (buffer-disable-undo)