From aceaa0a334a9e1a90ba3715e144d147a77aedc95 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 28 Mar 2021 15:29:41 +0300 Subject: [PATCH] Avoid errors in pulse.el for some face customizations * lisp/cedet/pulse.el (pulse-momentary-highlight-overlay): Make sure 'face-background' always returns a color name. Suggested by Ingo Lohmar in bug#47437. --- lisp/cedet/pulse.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index d77d635f971..1e4506713ae 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el @@ -153,7 +153,8 @@ 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))) + (face-background 'pulse-highlight-start-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.2