From 5d7ba920f32752273262e7cdb521ba71aaf3d81e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 20 Jan 2008 20:25:46 +0000 Subject: [PATCH] (ibuffer-mode): Fix last change. --- lisp/ibuffer.el | 8 +++++--- 1 file 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) -- 2.39.2