branch: externals/transient
commit 0204a2432862aa187745995f1c378e6d875b35cb
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--parse-suffix: Define suffix aliases at load-time
Re #234.
---
lisp/transient.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index dd2f9c3f73..840ab992d4 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1071,8 +1071,7 @@ example, sets a variable, use `transient-define-infix'
instead.
(if (and desc (or (stringp desc) (symbolp desc)))
desc
(plist-get args :key)))))))
- (defalias sym cmd)
- (setq args (plist-put args :command (macroexp-quote sym)))))
+ (setq args (plist-put args :command `(defalias ',sym ,cmd)))))
((or (stringp car)
(and car (listp car)))
(let ((arg pop))
