[elpa] externals/consult 5caf67192f: consult--async-split: Reduce prompt flickering

[ELPA Syncer]

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

    consult--async-split: Reduce prompt flickering
---
 consult.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/consult.el b/consult.el
index 9f65fba529..fdf208a72b 100644
--- a/consult.el
+++ b/consult.el
@@ -2126,10 +2126,10 @@ MIN-INPUT is the minimum input length and defaults to
        (pcase-let ((`(,async-str ,_ ,force . ,highlights) (funcall split 
action))
                    (end (minibuffer-prompt-end)))
          ;; Highlight punctuation characters
-         (remove-list-of-text-properties end (+ end (length action)) '(face))
-         (dolist (hl highlights)
-           (put-text-property (+ end (car hl)) (+ end (cdr hl))
-                              'face 'consult-async-split))
+         (pcase-dolist (`(,x . ,y) highlights)
+           (let ((x (+ end x)) (y (+ end y)))
+             (put-text-property x y 'rear-nonsticky t)
+             (add-face-text-property x y 'consult-async-split)))
          (funcall async
                   ;; Pass through if the input is long enough!
                   (if (or force (>= (length async-str) min-input))