diff options
author | Eli Zaretskii <eliz@gnu.org> | 2021-03-28 15:29:41 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2021-03-28 15:29:41 +0300 |
commit | aceaa0a334a9e1a90ba3715e144d147a77aedc95 (patch) | |
tree | da2cd0f53be206e5a0e0c703ebc6431ce582cc88 /lisp/cedet/pulse.el | |
parent | 96a45935989acc400025bde50258aeb3b499716e (diff) | |
download | emacs-aceaa0a334a9e1a90ba3715e144d147a77aedc95.tar.gz |
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 <ingo.lohmar@posteo.net> in bug#47437.
Diffstat (limited to 'lisp/cedet/pulse.el')
-rw-r--r-- | lisp/cedet/pulse.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |