[elpa] externals/transient 5063654d7d 08/19: transient--insert-suffix: Cosmetics

[Jonas Bernoulli via]

branch: externals/transient
commit 5063654d7d98e11a92c74e6d560de5adc4b14d93
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    transient--insert-suffix: Cosmetics
---
 lisp/transient.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index e8aac55ccc..c6425c68e3 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1476,12 +1476,11 @@ Intended for use in a group's `:setup-children' 
function."
 
 (defun transient--insert-suffix (prefix loc suffix action &optional keep-other)
   (let* ((suf (cl-etypecase suffix
-                (vector (transient--parse-group  prefix suffix))
-                (list   (transient--parse-suffix prefix suffix))
+                (vector (eval (transient--parse-group  prefix suffix) t))
+                (list   (eval (transient--parse-suffix prefix suffix) t))
                 (string suffix)))
          (mem (transient--layout-member loc prefix))
          (elt (car mem)))
-    (setq suf (eval suf t))
     (cond
      ((not mem)
       (funcall (if transient-error-on-insert-failure #'error #'message)