[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 1fa58c5 2/2: Use correct face when pulsing in CEDET
From: |
Lars Ingebrigtsen |
Subject: |
master 1fa58c5 2/2: Use correct face when pulsing in CEDET |
Date: |
Tue, 25 May 2021 00:23:10 -0400 (EDT) |
branch: master
commit 1fa58c548ae7c00550aef4f49d02dbe93b1ddf5f
Author: Gregory Heytings <gregory@heytings.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Use correct face when pulsing in CEDET
* lisp/cedet/pulse.el (pulse-momentary-highlight-overlay): Use
pulse-highlight-face, not pulse-highlight-start-face (bug#47810).
---
lisp/cedet/pulse.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el
index 1e45067..62b2072 100644
--- a/lisp/cedet/pulse.el
+++ b/lisp/cedet/pulse.el
@@ -153,8 +153,7 @@ Optional argument FACE specifies the face to do the
highlighting."
;; with a reference face needed for the color.
(pulse-reset-face face)
(let* ((start (color-name-to-rgb
- (face-background 'pulse-highlight-start-face
- nil 'default)))
+ (face-background 'pulse-highlight-face nil 'default)))
(stop (color-name-to-rgb (face-background 'default)))
(colors (mapcar (apply-partially 'apply 'color-rgb-to-hex)
(color-gradient start stop pulse-iterations))))