[elpa] externals/consult c669995e69 1/3: consult--focus-lines-state: Fix exit criterion

[ELPA Syncer]

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

    consult--focus-lines-state: Fix exit criterion
---
 consult.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/consult.el b/consult.el
index 590d0fcaa0..fe34934160 100644
--- a/consult.el
+++ b/consult.el
@@ -3034,12 +3034,12 @@ INITIAL is the initial input."
                  (block-beg pt-min)
                  (block-end pt-min))
             (unless (eq matches t)      ;; input arrived
-              (while (< block-end pt-max)
+              (while old-ind
                 (pcase-let ((`(,ind ,beg . ,end)
                              (if matches
                                  (get-text-property 0 'line (pop matches))
-                               `(,most-positive-fixnum ,pt-max . ,pt-max))))
-                  (when (/= ind (1+ old-ind))
+                               `(nil ,pt-max . ,pt-max))))
+                  (unless (eq ind (1+ old-ind))
                     (let ((a (if not block-beg block-end))
                           (b (if not block-end beg)))
                       (when (/= a b)