[elpa] externals/transient 777d95e86d 12/20: transient-set-level: Cosmetics

[Jonas Bernoulli via]

branch: externals/transient
commit 777d95e86d242c593da28948adad45f59855a53d
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    transient-set-level: Cosmetics
---
 lisp/transient.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 879af1bf97..30083d79a7 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2679,10 +2679,11 @@ transient is active."
     (let* ((prefix (oref transient--prefix command))
            (alist (alist-get prefix transient-levels))
            (sym command))
-      (if (eq command prefix)
-          (progn (oset transient--prefix level level)
-                 (setq sym t))
-        (oset (transient-suffix-object command) level level))
+      (cond ((eq command prefix)
+             (oset transient--prefix level level)
+             (setq sym t))
+            (t
+             (oset (transient-suffix-object command) level level)))
       (setf (alist-get sym alist) level)
       (setf (alist-get prefix transient-levels) alist))
     (transient-save-levels)