diff options
| -rw-r--r-- | lisp/transient.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index 13a078b..52f32c9 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -498,10 +498,10 @@ See info node `(transient)Enabling and Disabling Suffixes'." :group 'transient-faces) (defface transient-higher-level - `((t (:box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1) - :color ,(let ((color (face-attribute 'shadow :foreground nil t))) - (or (and (not (eq color 'unspecified)) color) - "grey60")))))) + `((t :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1) + :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) @@ -562,15 +562,15 @@ character used to separate possible values from each other." :group 'transient-faces) (defface transient-nonstandard-key - `((t (:box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1) - :color "cyan")))) + `((t :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1) + :color "cyan"))) "Face optionally used to highlight keys conflicting with short-argument. Also see option `transient-highlight-mismatched-keys'." :group 'transient-faces) (defface transient-mismatched-key - `((t (:box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1) - :color "magenta")))) + `((t :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1) + :color "magenta"))) "Face optionally used to highlight keys without a short-argument. Also see option `transient-highlight-mismatched-keys'." :group 'transient-faces) |