[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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master aceaa0a: Avoid errors in pulse.el for some face customizations,
Eli Zaretskii <=