emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/transient cdeda207ba 6/6: Remove unnecessary nesting fr


From: Jonas Bernoulli
Subject: [elpa] externals/transient cdeda207ba 6/6: Remove unnecessary nesting from some face definitions
Date: Sun, 3 Dec 2023 21:23:57 -0500 (EST)

branch: externals/transient
commit cdeda207ba8e67ae8f5e3270a27960ea7f3e2bb4
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Remove unnecessary nesting from some face definitions
---
 lisp/transient.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 13a078b28f..52f32c9067 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]