[elpa] master a770ddd 155/281: counsel.el (counsel-dired-jump): Obey find-program

[Oleh Krehel]

branch: master
commit a770ddd3b1d6a4df5e320124d08a7b718b06c236
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>

    counsel.el (counsel-dired-jump): Obey find-program
    
    * counsel.el (counsel-file-jump): Same.
    
    Fixes #1181
---
 counsel.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/counsel.el b/counsel.el
index 3eca04f..de50e8d 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1850,7 +1850,8 @@ INITIAL-DIRECTORY, if non-nil, is used as the root 
directory for search."
   (let* ((default-directory (or initial-directory default-directory)))
     (ivy-read "Find file: "
               (split-string
-               (shell-command-to-string "find * -type f -not -path '*\/.git*'")
+               (shell-command-to-string
+                (concat find-program " * -type f -not -path '*\/.git*'"))
                "\n" t)
               :matcher #'counsel--find-file-matcher
               :initial-input initial-input
@@ -1880,7 +1881,8 @@ INITIAL-DIRECTORY, if non-nil, is used as the root 
directory for search."
   (let* ((default-directory (or initial-directory default-directory)))
     (ivy-read "Directory: "
               (split-string
-               (shell-command-to-string "find * -type d -not -path '*\/.git*'")
+               (shell-command-to-string
+                (concat find-program " * -type d -not -path '*\/.git*'"))
                "\n" t)
               :initial-input initial-input
               :action (lambda (d) (dired-jump nil (expand-file-name d)))