diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-06-04 14:34:02 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-06-04 14:46:03 +0200 |
commit | e990a57d4c4d30eb2f63bb9ff5a53a4d86778432 (patch) | |
tree | ca675993808ba61f1918ff08e387258e36dc0053 /helm-locate.el | |
parent | 06f7c475a5994bacb9d1d9c12ef1abb44a30030e (diff) |
Fix directory completion for Windows.
* helm-files.el (helm-find-files-recursive-dirs):
Don't quote for w32, use helm-w32-pathname-transformer.
* helm-locate.el (helm-locate-init-subdirs): Transform
directory name for windows pathnames.
Diffstat (limited to 'helm-locate.el')
-rw-r--r-- | helm-locate.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/helm-locate.el b/helm-locate.el index 206deb46..12982028 100644 --- a/helm-locate.el +++ b/helm-locate.el @@ -98,7 +98,8 @@ directories of this list with `helm-projects-find-files'." :type '(repeat string)) (defcustom helm-locate-recursive-dirs-command "locate -i -e -A --regex ^%s %s.*$" - "Command used in recursive directories completion in `helm-find-files'." + "Command used in recursive directories completion in `helm-find-files'. +For Windows and `es' use something like \"es -r ^%s.*%s.*$\"." :type 'string :group 'helm-files) @@ -368,8 +369,12 @@ See also `helm-locate'." (with-temp-buffer (call-process-shell-command (format helm-locate-recursive-dirs-command - (helm-attr 'basedir) - (helm-attr 'subdir)) + (if (string-match-p "\\`es" helm-locate-recursive-dirs-command) + ;; Fix W32 paths. + (replace-regexp-in-string + "/" "\\\\\\\\" (helm-attr 'basedir)) + (helm-attr 'basedir)) + (helm-attr 'subdir)) nil t nil) (buffer-string))) |