From: Gregory Heytings <gregory@heytings.org>
Date: Tue, 25 May 2021 04:22:36 +0000 (+0200)
Subject: Use correct face when pulsing in CEDET
X-Git-Tag: emacs-28.0.90~2345
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1fa58c548ae7c00550aef4f49d02dbe93b1ddf5f;p=emacs.git

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).
---

diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el
index 1e4506713ae..62b2072e18c 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))))