ivy.el (ivy-completing-read): Check for a cons initial-input

diff --git a/ivy.el b/ivy.el
index 8f882b3d4f057479c60e379f846cbd766bc3abc3..f7e10e648a73c73d2ecf60f3a9c7988d60d22a91 100644 (file)
--- a/ivy.el
+++ b/ivy.el
@@ -773,7 +773,9 @@ The history, defaults and input-method arguments are ignored for now."
   (ivy-read prompt collection
             :predicate predicate
             :require-match require-match
-            :initial-input initial-input
+            :initial-input (if (consp initial-input)
+                               (car initial-input)
+                             initial-input)
             :preselect (if (listp def) (car def) def)
             :history history
             :keymap nil