emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/consult 85c13c1d9b 2/4: consult--jump-preview: Specify


From: ELPA Syncer
Subject: [elpa] externals/consult 85c13c1d9b 2/4: consult--jump-preview: Specify overlay priorities
Date: Tue, 11 Oct 2022 07:57:33 -0400 (EDT)

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

    consult--jump-preview: Specify overlay priorities
---
 consult.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/consult.el b/consult.el
index 5f7cd8463e..8e6533d695 100644
--- a/consult.el
+++ b/consult.el
@@ -1391,15 +1391,18 @@ The function can be used as the `:state' argument of 
`consult--read'."
                                 (end (line-end-position)))
                             (consult--overlay vbeg (if (= vend end) (1+ end) 
vend)
                                               'face 'consult-preview-line
-                                              'window (selected-window))))
+                                              'window (selected-window)
+                                              'priority 1)))
                         (consult--overlay (point) (1+ (point))
                                           'face 'consult-preview-cursor
-                                          'window (selected-window))))
+                                          'window (selected-window)
+                                          'priority 3)))
             (dolist (match (cdr-safe cand))
               (push (consult--overlay (+ (point) (car match))
                                       (+ (point) (cdr match))
                                       'face 'consult-preview-match
-                                      'window (selected-window))
+                                      'window (selected-window)
+                                      'priority 2)
                     overlays))
             (run-hooks 'consult-after-jump-hook))))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]