# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1021269588 0
# Node ID 9f06588d9f44a8b4006e39a5bfa189100c28377f
# Parent  b43f1f67f12645fa028f152e059e29c11990798f
(ibuffer-format-filter-group-data): New function.

diff -r b43f1f67f126 -r 9f06588d9f44 lisp/ibuf-ext.el
--- a/lisp/ibuf-ext.el	Mon May 13 05:59:22 2002 +0000
+++ b/lisp/ibuf-ext.el	Mon May 13 05:59:48 2002 +0000
@@ -896,6 +896,13 @@
 		       ibuffer-saved-filters nil t))))
   (setq ibuffer-filtering-qualifiers (list (cons 'saved name)))
   (ibuffer-update nil t))
+
+(defun ibuffer-format-filter-group-data (filter)
+  (if (equal filter "Default")
+      ""
+    (concat "Filter: " (mapconcat #'ibuffer-format-qualifier
+				  (cdr (assq filter ibuffer-filter-groups))
+				  " ") "\n")))
   
 (defun ibuffer-format-qualifier (qualifier)
   (if (eq (car-safe qualifier) 'not)