[elpa] externals/transient b343e2a3bb 202/366: transient-infix-read: Fix ivy specific kludge

[Jonas Bernoulli]

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

    transient-infix-read: Fix ivy specific kludge
    
    Some readers don't return string, in which case we have to make sure
    we don't use the ivy kludge that makes sure that text properties are
    striped from strings.
---
 lisp/transient.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 52ebba6663..bf24da0fcf 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2438,7 +2438,8 @@ it\", in which case it is pointless to preserve history.)"
               ((and (equal value "\"\"") allow-empty)
                (setq value "")))
         (when value
-          (when (bound-and-true-p ivy-mode)
+          (when (and (bound-and-true-p ivy-mode)
+                     (stringp (car transient--history)))
             (set-text-properties 0 (length (car transient--history)) nil
                                  (car transient--history)))
           (setf (alist-get history-key transient-history)