From: Jonas Bernoulli <jonas@bernoul.li>
Date: Wed, 3 May 2023 13:02:31 +0000 (+0200)
Subject: Update to Transient v0.3.7-219-g3ded15b
X-Git-Tag: emacs-29.0.91~59
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21ec6c1d5cc7b6e1858f21de62a593e25d205383;p=emacs.git

Update to Transient v0.3.7-219-g3ded15b
---

diff --git a/lisp/transient.el b/lisp/transient.el
index 4affc414fa6..9785e218b19 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1071,7 +1071,8 @@ example, sets a variable, use `transient-define-infix' instead.
                               (if (and desc (or (stringp desc) (symbolp desc)))
                                   desc
                                 (plist-get args :key)))))))
-          (setq args (plist-put args :command `(defalias ',sym ,cmd)))))
+          (setq args (plist-put args :command
+                                `(defalias ',sym ,(macroexp-quote cmd))))))
        ((or (stringp car)
             (and car (listp car)))
         (let ((arg pop))