branch: externals/transient
commit 6b5fc572fcd1380f1d01ba2de14e0cb60422a7d9
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--init-suffix: Avoid unnecessary work
---
lisp/transient.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index ba061a63b3..a7ce0b5c08 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2551,14 +2551,13 @@ value. Otherwise return CHILDREN as is.")
(defalias cmd #'transient--default-infix-command))
((transient--use-suffix-p obj)
(error "Suffix command %s is not defined or autoloaded" cmd)))
- (unless (cl-typep obj 'transient-information)
- (transient--init-suffix-key obj))
(when (transient--use-suffix-p obj)
(when (transient--inapt-suffix-p obj)
(oset obj inapt t))
- (transient-init-scope obj)
- (transient-init-value obj)
(unless (cl-typep def 'transient-information)
+ (transient--init-suffix-key obj)
+ (transient-init-scope obj)
+ (transient-init-value obj)
(push obj transient--suffixes))
(list obj))))))
