# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1021269606 0
# Node ID 087cbd1a5087211124d6994cc9cc7907e79f9fd0
# Parent  9f06588d9f44a8b4006e39a5bfa189100c28377f
(ibuffer-insert-filter-group): New argument filter-string.
(ibuffer-redisplay-engine): Handle it.

diff -r 9f06588d9f44 -r 087cbd1a5087 lisp/ibuffer.el
--- a/lisp/ibuffer.el	Mon May 13 05:59:48 2002 +0000
+++ b/lisp/ibuffer.el	Mon May 13 06:00:06 2002 +0000
@@ -2074,7 +2074,7 @@
 	  (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 @@
      (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 @@
 		(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