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

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

[nongnu] elpa/symbol-overlay 7b638c8418 064/152: Properly define symbol-


From: ELPA Syncer
Subject: [nongnu] elpa/symbol-overlay 7b638c8418 064/152: Properly define symbol-overlay-temp-face
Date: Thu, 7 Jul 2022 12:04:13 -0400 (EDT)

branch: elpa/symbol-overlay
commit 7b638c8418354a0895996a4ded7865cc52e4e0ef
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Properly define symbol-overlay-temp-face
    
    This allows it to be themed.
---
 symbol-overlay.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index 01346674e3..867ed85968 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -80,6 +80,10 @@
 (require 'thingatpt)
 (require 'seq)
 
+(defgroup symbol-overlay nil
+  "Highlight symbols with keymap-enabled overlays."
+  :group 'convenience)
+
 (defvar symbol-overlay-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "i") 'symbol-overlay-put)
@@ -182,9 +186,8 @@ SCOPE and WINDOW."
          (forward-line lines)
          (narrow-to-region beg (point)))))))
 
-(defvar symbol-overlay-temp-face
-  '((:background "gray70")
-    (:foreground "gray30"))
+(defface symbol-overlay-temp-face
+  '(t (:inherit 'highlight))
   "Face for temporary highlighting.")
 
 (defun symbol-overlay-remove-temp ()
@@ -253,7 +256,7 @@ Otherwise use `symbol-overlay-temp-face' as the face."
                     (overlay-put ov 'keymap symbol-overlay-map)
                     (overlay-put ov 'evaporate t)
                     (overlay-put ov 'symbol symbol))
-      (overlay-put ov 'face symbol-overlay-temp-face)
+      (overlay-put ov 'face 'symbol-overlay-temp-face)
       (overlay-put ov 'symbol ""))))
 
 (defun symbol-overlay-put-all (symbol &optional scope keyword)



reply via email to

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