Update to Transient v0.3.7-219-g3ded15b

This commit is contained in:
Jonas Bernoulli 2023-05-03 15:02:31 +02:00
parent 8d5aa8df4a
commit 21ec6c1d5c
No known key found for this signature in database
GPG key ID: 230C2EFBB326D927

View file

@ -1071,7 +1071,8 @@ example, sets a variable, use `transient-define-infix' instead.
(if (and desc (or (stringp desc) (symbolp desc))) (if (and desc (or (stringp desc) (symbolp desc)))
desc desc
(plist-get args :key))))))) (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) ((or (stringp car)
(and car (listp car))) (and car (listp car)))
(let ((arg pop)) (let ((arg pop))