From 7fbac64580fcae7101831e2b54be9ed60ce46c84 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Mon, 13 May 2002 06:00:06 +0000 Subject: [PATCH] (ibuffer-insert-filter-group): New argument filter-string. (ibuffer-redisplay-engine): Handle it. --- lisp/ibuffer.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 36efe77e4b6..7bad0b02f98 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -2074,7 +2074,7 @@ Do not display messages if SILENT is non-nil." (nreverse result) result)))) -(defun ibuffer-insert-filter-group (name display-name format bmarklist) +(defun ibuffer-insert-filter-group (name display-name filter-string format bmarklist) (add-text-properties (point) (progn @@ -2082,7 +2082,7 @@ Do not display messages if SILENT is non-nil." (point)) `(ibuffer-filter-group-name ,name keymap ,ibuffer-mode-filter-group-map mouse-face highlight - help-echo "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group ")) + help-echo ,(concat filter-string "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group "))) (insert "\n") (when bmarklist (put-text-property @@ -2125,6 +2125,9 @@ Do not display messages if SILENT is non-nil." (ibuffer-insert-filter-group name (if disabled (concat name " ...") name) + (if ext-loaded + (ibuffer-format-filter-group-data name) + "") --ibuffer-insert-buffers-and-marks-format (if disabled nil -- 2.39.5