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

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

[elpa] externals/embark 820c7c6773 2/2: Merge pull request #630 from min


From: ELPA Syncer
Subject: [elpa] externals/embark 820c7c6773 2/2: Merge pull request #630 from minad/bugfix
Date: Sun, 30 Apr 2023 20:02:19 -0400 (EDT)

branch: externals/embark
commit 820c7c677387181dd5fc5333578e7438fb4d7a57
Merge: 7fdb1788f9 b76172300e
Author: Omar AntolĂ­n Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #630 from minad/bugfix
    
    Fix: Rename category embark-selected to embark-selected-overlay
---
 embark.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/embark.el b/embark.el
index bdaaadae38..92cc77995b 100644
--- a/embark.el
+++ b/embark.el
@@ -555,10 +555,10 @@ action."
 
 ;; high priority to override both bug reference and the lazy
 ;; isearch highlights in embark-isearch-highlight-indicator
-(put 'embark-target 'face 'embark-target)
-(put 'embark-target 'priority 1001)
-(put 'embark-selected 'face 'embark-selected)
-(put 'embark-selected 'priority 1001)
+(put 'embark-target-overlay 'face 'embark-target)
+(put 'embark-target-overlay 'priority 1001)
+(put 'embark-selected-overlay 'face 'embark-selected)
+(put 'embark-selected-overlay 'priority 1001)
 
 ;;; Stashing information for actions in buffer local variables
 
@@ -2378,7 +2378,7 @@ ARG is the prefix argument."
           (if overlay
               (move-overlay overlay (car bounds) (cdr bounds))
             (setq overlay (make-overlay (car bounds) (cdr bounds)))
-            (overlay-put overlay 'category 'embark-target))
+            (overlay-put overlay 'category 'embark-target-overlay))
           (overlay-put overlay 'window (selected-window)))))))
 
 (defun embark-isearch-highlight-indicator ()
@@ -3292,7 +3292,7 @@ If BOUNDS are given, also highlight the target when 
selecting it."
       (let ((target (copy-sequence orig-target)) overlay)
         (when bounds
           (setq overlay (make-overlay (car bounds) (cdr bounds)))
-          (overlay-put overlay 'category 'embark-selected))
+          (overlay-put overlay 'category 'embark-selected-overlay))
         (add-text-properties 0 (length orig-target)
                              `(multi-category ,(cons orig-type orig-target))
                              target)



reply via email to

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