branch: externals/consult
commit 9b2d0fbf837ec4e520df90794ce1ee7032634ce3
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
provided-mode-derived-p takes a single argument
---
consult.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/consult.el b/consult.el
index 3fc0fbf5b0..4af759c15f 100644
--- a/consult.el
+++ b/consult.el
@@ -4415,15 +4415,16 @@ AS is a conversion function."
(when sort
(setq buffers (funcall (intern (format "consult--buffer-sort-%s" sort))
buffers)))
(when (or filter mode as root)
- (let ((mode (ensure-list mode))
- (exclude-re (consult--regexp-filter exclude))
+ (let ((exclude-re (consult--regexp-filter exclude))
(include-re (consult--regexp-filter include))
(case-fold-search))
(consult--keep! buffers
(and
(or (not mode)
- (apply #'provided-mode-derived-p
- (buffer-local-value 'major-mode it) mode))
+ (let ((mm (buffer-local-value 'major-mode it)))
+ (if (consp mode)
+ (seq-some (lambda (m) (provided-mode-derived-p mm m))
mode)
+ (provided-mode-derived-p mm mode))))
(pcase-exhaustive filter
('nil t)
((or 't 'invert)
