[elpa] externals/transient 171924893f 140/366: transient-infix-read: Work around another Ivy bug

[Jonas Bernoulli]

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

    transient-infix-read: Work around another Ivy bug
    
    When the cdr of HISTORY is 0 then `completing-read' is supposed to
    behave exactly as if HISTORY weren't a cons-cell.  However when using
    `ivy-mode', then this is taken as a cue to use the first element as
    initial input.
---
 lisp/transient.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index df61d2df0e..f74753f5b7 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2212,7 +2212,9 @@ it\", in which case it is pointless to preserve history.)"
                                    (cons value transient--history)))
              (initial-input (and transient-read-with-initial-input
                                  (car transient--history)))
-             (history (cons 'transient--history (if initial-input 1 0)))
+             (history (if initial-input
+                          (cons 'transient--history 1)
+                        'transient--history))
              (value
               (cond
                (reader (funcall reader prompt initial-input history))