branch: externals/transient
commit 401508f76bc4317109e791428a1a42be67ef428a
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
wip
---
lisp/transient.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 9f068e7222..29293068ac 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -988,8 +988,9 @@ example, sets a variable use `transient-define-infix'
instead.
(push k keys)
(push v keys))))
(while (let ((arg (car args)))
- (or (vectorp arg)
- (and arg (symbolp arg))))
+ (if (vectorp arg)
+ (setcar args (eval (cdr (backquote-process arg))))
+ (and arg (symbolp arg))))
(push (pop args) suffixes))
(list (if (eq (car-safe class) 'quote)
(cadr class)
