[elpa] externals/consult 30210f53ad 1/2: consult--find-highlights: Ignore completions-first-difference

[ELPA Syncer]

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

    consult--find-highlights: Ignore completions-first-difference
---
 consult.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/consult.el b/consult.el
index 9d82776901..a3838505ba 100644
--- a/consult.el
+++ b/consult.el
@@ -572,12 +572,16 @@ Turn ARG into a list, and for each element either:
 (defun consult--find-highlights (str start)
   "Find highlighted regions (face property non-nil) in STR from position 
START."
   (let (highlights
-        (len (length str))
-        (beg start) end)
-    (while (and beg (setq beg (text-property-not-all beg len 'face nil str)))
-      (setq end (text-property-any beg len 'face nil str))
-      (push (cons (- beg start) (- (or end len) start)) highlights)
-      (setq beg end))
+        (end (length str))
+        (beg start))
+    (while (< beg end)
+      (let ((next (next-single-property-change beg 'face str end))
+            (val (get-text-property beg 'face str)))
+        (when (and val
+                   (not (eq val 'completions-first-difference))
+                   (not (and (listp val) (memq 'completions-first-difference 
val))))
+          (push (cons (- beg start) (- next start)) highlights))
+        (setq beg next)))
     (nreverse highlights)))
 
 (defun consult--highlight-regexps (regexps ignore-case str)