branch: externals/transient
commit d9872fe1ab277723d31347e6dd1248ab1d557929
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient-format-description: Cosmetics
---
lisp/transient.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index e9aed64726..e40459a54a 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4790,9 +4790,9 @@ apply the face `transient-unreachable' to the complete
string."
(when-let ((face (transient--get-face obj 'face)))
(setq desc (transient--add-face desc face t)))
(setq desc (propertize "(BUG: no description)" 'face 'error)))
- (when (if transient--all-levels-p
- (> (oref obj level) transient--default-prefix-level)
- (and transient-highlight-higher-levels
+ (when (cond (transient--all-levels-p
+ (> (oref obj level) transient--default-prefix-level))
+ (transient-highlight-higher-levels
(> (max (oref obj level) transient--max-group-level)
transient--default-prefix-level)))
(setq desc (transient--add-face desc 'transient-higher-level)))
