[elpa] externals/consult cf95952670 3/3: consult--focus-lines-state: Use private property

[ELPA Syncer]

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

    consult--focus-lines-state: Use private property
---
 consult.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index 891b968f75..4f3e5404de 100644
--- a/consult.el
+++ b/consult.el
@@ -3015,7 +3015,7 @@ INITIAL is the initial input."
           (consult--each-line beg end
             (let ((line (if (eq beg end) (char-to-string ?\n)
                           (buffer-substring-no-properties beg end))))
-              (put-text-property 0 1 'line (cons (cl-incf i) beg) line)
+              (put-text-property 0 1 'consult--focus-line (cons (cl-incf i) 
beg) line)
               (push line lines)))
           (setq lines (nreverse lines)))))
     (lambda (input restore)
@@ -3037,7 +3037,7 @@ INITIAL is the initial input."
               (while old-ind
                 (let ((match (pop matches)) (ind nil) (beg pt-max) (end 
pt-max) prop)
                   (when match
-                    (setq prop (get-text-property 0 'line match)
+                    (setq prop (get-text-property 0 'consult--focus-line match)
                           ind (car prop)
                           beg (cdr prop)
                           end (+ 1 beg (length match))))