branch: externals/consult
commit 8c6787edc690097ccfcf2255fecf623a8ab29c7e
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Prefer any over seq-some
---
consult.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/consult.el b/consult.el
index d500c9cca2c..d8463f81bbe 100644
--- a/consult.el
+++ b/consult.el
@@ -1142,7 +1142,7 @@ IGNORED-FACES are ignored when searching for matches."
(when (and val
(not (memq val ignored-faces))
(not (and (consp val)
- (seq-some (lambda (x) (memq x ignored-faces))
val))))
+ (any (lambda (x) (memq x ignored-faces)) val))))
(push (cons (- beg start) (- next start)) highlights))
(setq beg next)))
(nreverse highlights)))
@@ -4781,7 +4781,7 @@ AS is a conversion function."
(or (not mode)
(let ((mm (buffer-local-value 'major-mode it)))
(if (consp mode)
- (seq-some (lambda (m) (provided-mode-derived-p mm m))
mode)
+ (any (lambda (m) (provided-mode-derived-p mm m)) mode)
(provided-mode-derived-p mm mode))))
(pcase-exhaustive filter
('nil t)
