branch: externals/transient
commit b8aefce365625846451c4ccefce6bc9c107ff64f
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient-higher-level: Ensure box color is valid
---
lisp/transient.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 348f885e44..13a078b28f 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -499,7 +499,9 @@ See info node `(transient)Enabling and Disabling Suffixes'."
(defface transient-higher-level
`((t (:box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1)
- :color ,(face-attribute 'shadow :foreground nil t)))))
+ :color ,(let ((color (face-attribute 'shadow :foreground nil
t)))
+ (or (and (not (eq color 'unspecified)) color)
+ "grey60"))))))
"Face optionally used to highlight suffixes on higher levels.
Also see option `transient-highlight-higher-levels'."
:group 'transient-faces)
