transient-higher-level: Ensure box color is valid

magit · Dec 4, 2023 · b8aefce · b8aefce
1 parent 413310c
commit b8aefce
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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)