Mercurial > emacs
changeset 45269:9f06588d9f44
(ibuffer-format-filter-group-data): New function.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Mon, 13 May 2002 05:59:48 +0000 |
| parents | b43f1f67f126 |
| children | 087cbd1a5087 |
| files | lisp/ibuf-ext.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)