From 1fa58c548ae7c00550aef4f49d02dbe93b1ddf5f Mon Sep 17 00:00:00 2001 From: Gregory Heytings Date: Tue, 25 May 2021 06:22:36 +0200 Subject: [PATCH] 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 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)))) -- 2.39.5