emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master aceaa0a: Avoid errors in pulse.el for some face customizations


From: Eli Zaretskii
Subject: master aceaa0a: Avoid errors in pulse.el for some face customizations
Date: Sun, 28 Mar 2021 08:30:20 -0400 (EDT)

branch: master
commit aceaa0a334a9e1a90ba3715e144d147a77aedc95
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    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.
---
 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 d77d635..1e45067 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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]