[elpa] master 4f12a59 196/399: counsel.el (counsel-find-file-mkdir-action): Add trailing "/"

[Oleh Krehel]

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

    counsel.el (counsel-find-file-mkdir-action): Add trailing "/"
    
    Re #2053
---
 counsel.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index fc44e31..c74bf81 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1777,7 +1777,8 @@ choose between `yes-or-no-p' and `y-or-n-p'; otherwise 
default to
 
 (defun counsel-find-file-mkdir-action (_x)
   "Create a directory from `ivy-text'."
-  (let ((dir (expand-file-name ivy-text ivy--directory))
+  (let ((dir (file-name-as-directory
+              (expand-file-name ivy-text ivy--directory)))
         (win (and (not (eq ivy-exit 'done))
                   (active-minibuffer-window))))
     (make-directory dir)