branch: elpa/symbol-overlay
commit 7b638c8418354a0895996a4ded7865cc52e4e0ef
Author: Steve Purcell <[email protected]>
Commit: Steve Purcell <[email protected]>
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)
