branch: externals/transient
commit 777d95e86d242c593da28948adad45f59855a53d
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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)
