mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Do not display 'nil for 0-ary filter qualifier in ibuf

Browse source 
* lisp/ibuf-ext.el (ibuffer-format-qualifier-1): Do not display
nil in header for 0-ary filter qualifier.
* lisp/ibuf-macs.el (define-ibuffer-filter): Also fix the message.
This commit is contained in:
Manuel Giraud 2022-06-15 17:52:38 +02:00 • committed by Lars Ingebrigtsen
parent ebdda80b07
commit b105981803
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ibuf-ext.el
View file

@ -1211,7 +1211,9 @@ Interactively, prompt for NAME, and use the current filters."
(let ((type (assq (car qualifier) ibuffer-filtering-alist)))
(unless qualifier
(error "Ibuffer: Bad qualifier %s" qualifier))
(concat " [" (cadr type) ": " (format "%s]" (cdr qualifier)))))))
(if (cdr qualifier)
(format " [%s: %s]" (cadr type) (cdr qualifier))
(format " [%s]" (cadr type)))))))
(defun ibuffer-list-buffer-modes (&optional include-parents)
"Create a completion table of buffer modes currently in use.

7
lisp/ibuf-macs.el
View file

@ -321,10 +321,15 @@ bound to the current value of the filter.
(when (cdr qualifier) ; Compose individual filters with `or'.
(setq ,filter `(or ,@(mapcar (lambda (m) (cons ',name m)) qualifier))))))
(if (null (ibuffer-push-filter ,filter))
(message ,(format "Filter by %s already applied: %%s" description)
(if ,qualifier-str
(message ,(format "Filter by %s already applied: %%s"
description)
,qualifier-str)
(message ,(format "Filter by %s already applied" description)))
(if ,qualifier-str
(message ,(format "Filter by %s added: %%s" description)
,qualifier-str)
(message ,(format "Filter by %s added" description)))
(ibuffer-update nil t))))
(push (list ',name ,description
(lambda (buf qualifier)