[elpa] externals/consult 9b2d0fbf83: provided-mode-derived-p takes a single argument

[ELPA Syncer]

branch: externals/consult
commit 9b2d0fbf837ec4e520df90794ce1ee7032634ce3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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)