branch: master
commit 2db2c510572eadbc2e0ec851a1c739e7e7906d6d
Author: David Ringo <davidmri...@gmail.com>
Commit: David Ringo <davidmri...@gmail.com>

    counsel.el (counsel-find-file-mkdir-action): make parents too
---
 counsel.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/counsel.el b/counsel.el
index d976ae0..5bd149a 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1833,12 +1833,12 @@ choose between `yes-or-no-p' and `y-or-n-p'; otherwise 
default to
                         'counsel-find-file-move))
 
 (defun counsel-find-file-mkdir-action (_x)
-  "Create a directory from `ivy-text'."
+  "Create a directory and any nonexistent parent dirs from `ivy-text'."
   (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)
+    (make-directory dir t)
     (when win (with-selected-window win (ivy--cd dir)))))
 
 (ivy-set-actions

Reply via email to