mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(ibuffer-format-filter-group-data): New function.

Browse Source
This commit is contained in:
Colin Walters 2002-05-13 05:59:48 +00:00
parent 859eefe71f
commit c12447455e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ibuf-ext.el
View File

@ -896,6 +896,13 @@ of replacing the current filters."
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)