diff options
| -rw-r--r-- | lisp/transient.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |