[elpa] externals/transient 8bfa489644 095/366: Support inserting string pseudo suffixes

[Jonas Bernoulli]

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

    Support inserting string pseudo suffixes
---
 lisp/transient.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index b107b97632..5e22516c8a 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -870,7 +870,8 @@ example, sets a variable use `define-infix-command' instead.
 (defun transient--insert-suffix (prefix loc suffix action)
   (let* ((suf (cl-etypecase suffix
                 (vector (transient--parse-group  prefix suffix))
-                (list   (transient--parse-suffix prefix suffix))))
+                (list   (transient--parse-suffix prefix suffix))
+                (string suffix)))
          (mem (transient--layout-member loc prefix))
          (elt (car mem)))
     (cond
@@ -879,7 +880,7 @@ example, sets a variable use `define-infix-command' instead.
                suffix prefix loc))
      ((or (and (vectorp suffix) (not (vectorp elt)))
           (and (listp   suffix) (vectorp elt))
-          )
+          (and (stringp suffix) (vectorp elt)))
       (message "Cannot place %S into %s at %s; %s"
                suffix prefix loc
                "suffixes and groups cannot be siblings"))