branch: externals/consult
commit d6741f32ca909db1736cc54652297f842b9d448f
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Use cl-loop instead of seq-every-p
---
consult-info.el | 8 ++++----
consult.el | 8 ++++----
2 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/consult-info.el b/consult-info.el
index fa20502e94..86300c10e1 100644
--- a/consult-info.el
+++ b/consult-info.el
@@ -68,10 +68,10 @@
(not (looking-at-p "^\\s-*$"))
(looking-at-p "^[[:print:]]*$")
;; Matches all regexps
- (seq-every-p (lambda (r)
- (goto-char bol)
- (re-search-forward r eol t))
- (cdr regexps)))
+ (cl-loop for r in (cdr regexps) always
+ (progn
+ (goto-char bol)
+ (re-search-forward r eol t))))
(let ((cand (concat
(funcall hl (buffer-substring-no-properties bol
eol))
(consult--tofu-encode cand-idx))))
diff --git a/consult.el b/consult.el
index b2f17929b8..a6c271d652 100644
--- a/consult.el
+++ b/consult.el
@@ -3382,10 +3382,10 @@ BUFFERS is the list of buffers."
(eol (pos-eol)))
(goto-char bol)
(when (and (not (looking-at-p "^\\s-*$"))
- (seq-every-p (lambda (r)
- (goto-char bol)
- (re-search-forward r eol t))
- (cdr regexps)))
+ (cl-loop for r in (cdr regexps) always
+ (progn
+ (goto-char bol)
+ (re-search-forward r eol t))))
(push (consult--location-candidate
(funcall hl (buffer-substring-no-properties bol
eol))
(cons buf bol) (1- line) cand-idx)
