Mercurial > emacs
comparison lisp/ibuf-ext.el @ 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 | 580bcb04cd4f |
| children | f43392bbb789 |
comparison
equal
deleted
inserted
replaced
| 45268:b43f1f67f126 | 45269:9f06588d9f44 |
|---|---|
| 894 (error "No saved filters") | 894 (error "No saved filters") |
| 895 (completing-read "Switch to saved filters: " | 895 (completing-read "Switch to saved filters: " |
| 896 ibuffer-saved-filters nil t)))) | 896 ibuffer-saved-filters nil t)))) |
| 897 (setq ibuffer-filtering-qualifiers (list (cons 'saved name))) | 897 (setq ibuffer-filtering-qualifiers (list (cons 'saved name))) |
| 898 (ibuffer-update nil t)) | 898 (ibuffer-update nil t)) |
| 899 | |
| 900 (defun ibuffer-format-filter-group-data (filter) | |
| 901 (if (equal filter "Default") | |
| 902 "" | |
| 903 (concat "Filter: " (mapconcat #'ibuffer-format-qualifier | |
| 904 (cdr (assq filter ibuffer-filter-groups)) | |
| 905 " ") "\n"))) | |
| 899 | 906 |
| 900 (defun ibuffer-format-qualifier (qualifier) | 907 (defun ibuffer-format-qualifier (qualifier) |
| 901 (if (eq (car-safe qualifier) 'not) | 908 (if (eq (car-safe qualifier) 'not) |
| 902 (concat " [NOT" (ibuffer-format-qualifier-1 (cdr qualifier)) "]") | 909 (concat " [NOT" (ibuffer-format-qualifier-1 (cdr qualifier)) "]") |
| 903 (ibuffer-format-qualifier-1 qualifier))) | 910 (ibuffer-format-qualifier-1 qualifier))) |