[elpa] externals/transient 307695d2df 21/26: transient-format-description(around:suffix): Combine faces

[Jonas Bernoulli]

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

    transient-format-description(around:suffix): Combine faces
---
 lisp/transient.el | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 6caf08ff80..558ea8efca 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3790,21 +3790,19 @@ If the OBJ's `key' is currently unreachable, then apply 
the face
                        (funcall (oref transient--prefix suffix-description)
                                 obj))
                   (propertize "(BUG: no description)" 'face 'error))))
-    (cond
-     ((oref obj inapt)
-      (if-let ((face (transient--get-face obj 'inapt-face)))
-          (transient--add-face desc face)
-        desc))
-     ((and (slot-boundp obj 'key)
-           (transient--key-unreachable-p obj))
-      (propertize desc 'face 'transient-unreachable))
-     ((if transient--all-levels-p
-          (> (oref obj level) transient--default-prefix-level)
-        (and transient-highlight-higher-levels
-             (> (max (oref obj level) transient--max-group-level)
-                transient--default-prefix-level)))
-      (transient--add-face desc 'transient-higher-level))
-     (desc))))
+    (when (if transient--all-levels-p
+              (> (oref obj level) transient--default-prefix-level)
+            (and 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)))
+    (when-let ((inapt-face (and (oref obj inapt)
+                                (transient--get-face obj 'inapt-face))))
+      (setq desc (transient--add-face desc inapt-face)))
+    (when (and (slot-boundp obj 'key)
+               (transient--key-unreachable-p obj))
+      (setq desc (transient--add-face desc 'transient-unreachable)))
+    desc))
 
 (cl-defgeneric transient-format-value (obj)
   "Format OBJ's value for display and return the result.")