emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/transient 99943f73c9 1/5: Unquote inside the group vect


From: Jonas Bernoulli
Subject: [elpa] externals/transient 99943f73c9 1/5: Unquote inside the group vectors used when defining a prefix
Date: Sun, 30 Jan 2022 17:41:27 -0500 (EST)

branch: externals/transient
commit 99943f73c979cb2a386506a1613635aaf89651ab
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Unquote inside the group vectors used when defining a prefix
    
    Evaluate expressions inside the group vectors that are prefixed
    with a comma when the `transient-define-prefix' macro is expanded.
---
 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]