[elpa] master 344aebc 116/399: counsel.el (counsel-dired-jump): Improve

[Oleh Krehel]

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

    counsel.el (counsel-dired-jump): Improve
    
    Re #1820
    
    Thanks @Alexander-Shukaev
---
 counsel.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/counsel.el b/counsel.el
index 54d80a2..ca21886 100644
--- a/counsel.el
+++ b/counsel.el
@@ -2435,7 +2435,7 @@ INITIAL-DIRECTORY, if non-nil, is used as the root 
directory for search."
 ;;** `counsel-dired-jump'
 ;;;###autoload
 (defun counsel-dired-jump (&optional initial-input initial-directory)
-  "Jump to a directory (in dired) below the current directory.
+  "Jump to a directory (see `dired-jump') below the current directory.
 List all subdirectories within the current directory.
 INITIAL-INPUT can be given as the initial minibuffer input.
 INITIAL-DIRECTORY, if non-nil, is used as the root directory for search."
@@ -2443,15 +2443,18 @@ INITIAL-DIRECTORY, if non-nil, is used as the root 
directory for search."
    (list nil
          (when current-prefix-arg
            (read-directory-name "From directory: "))))
-  (counsel-require-program "find")
-  (let* ((default-directory (or initial-directory default-directory)))
-    (ivy-read "Directory: "
+  (counsel-require-program find-program)
+  (let ((default-directory (or initial-directory default-directory)))
+    (ivy-read "Find directory: "
               (split-string
                (shell-command-to-string
                 (concat find-program " " counsel-dired-jump-args))
                "\n" t)
+              :matcher #'counsel--find-file-matcher
               :initial-input initial-input
               :action (lambda (d) (dired-jump nil (expand-file-name d)))
+              :history 'file-name-history
+              :keymap counsel-find-file-map
               :caller 'counsel-dired-jump)))
 
 ;;* Grep