diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2023-12-04 01:30:21 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2023-12-04 01:30:21 +0100 |
| commit | b8aefce365625846451c4ccefce6bc9c107ff64f (patch) | |
| tree | 621c784bf1f64e32c728f153702d74315f9ed92c | |
| parent | 413310cd049b176431527a1021e5b832e3ec6b5c (diff) | |
transient-higher-level: Ensure box color is valid
| -rw-r--r-- | lisp/transient.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index 348f885..13a078b 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) |