From: Eli Zaretskii Date: Sun, 28 Mar 2021 12:29:41 +0000 (+0300) Subject: Avoid errors in pulse.el for some face customizations X-Git-Tag: emacs-28.0.90~3114 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aceaa0a334a9e1a90ba3715e144d147a77aedc95;p=emacs.git 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. --- 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))))