[elpa] master ebd3fb9 254/272: Fix read-file-name with specified dir

[Oleh Krehel]

branch: master
commit ebd3fb90f8d711683bc2c06c8875d86a09cb8dfc
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Fix read-file-name with specified dir
    
    * ivy.el (ivy--reset-state):
    For a call (read-file-name prompt chosen default-file-name),
    `ivy--directory' should be set to `chosen'.
    
    Fixes #475
---
 ivy.el |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ivy.el b/ivy.el
index 18f9dca..22deab9 100644
--- a/ivy.el
+++ b/ivy.el
@@ -1400,7 +1400,11 @@ This is useful for recursive `ivy-read'."
                                 :test #'equal)))
                (setq coll (all-completions "" collection predicate))))
             ((eq collection 'read-file-name-internal)
-             (setq ivy--directory default-directory)
+             (setq ivy--directory
+                   (if (file-directory-p initial-input)
+                       (prog1 initial-input
+                         (setq initial-input nil))
+                     default-directory))
              (require 'dired)
              (when preselect
                (let ((preselect-directory (file-name-directory preselect)))