branch: externals/transient
commit eda434d21feed40ea26dd4b7655cc1559d4905ed
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--load-command-if-autoload: New helper function
---
lisp/transient.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 68545ddb78..cdab343f6d 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2361,11 +2361,7 @@ value. Otherwise return CHILDREN as is.")
level
(and proto (oref proto level))
transient--default-child-level)))
- (let ((fn (and (symbolp cmd)
- (symbol-function cmd))))
- (when (autoloadp fn)
- (transient--debug " autoload %s" cmd)
- (autoload-do-load fn)))
+ (transient--load-command-if-autoload cmd)
(when (transient--use-level-p level)
(let ((obj (if (child-of-class-p class 'transient-information)
(apply class :parent parent :level level args)
@@ -2483,6 +2479,13 @@ value. Otherwise return CHILDREN as is.")
:inapt-if-mode :inapt-if-not-mode
:inapt-if-derived :inapt-if-not-derived))))
+(defun transient--load-command-if-autoload (cmd)
+ (when-let* (((symbolp cmd))
+ (fn (symbol-function cmd))
+ ((autoloadp fn)))
+ (transient--debug " autoload %s" cmd)
+ (autoload-do-load fn)))
+
;;; Flow-Control
(defun transient--setup-transient ()
