Helm: Fallback on 'find' if 'locate' is not available

2017-10-11 16:18:38 +01:00 · 2017-10-11 16:18:38 +01:00 · 762761199a
parent fb2872b92f
commit 762761199a
1 changed files with 4 additions and 0 deletions
--- a/.emacs.d/lisp/init-helm.el
+++ b/.emacs.d/lisp/init-helm.el
@ -187,6 +187,10 @@ Requires `call-process-to-string' from `functions'."
 ;;; Column indices might need some customizing. See `helm-top-command' and
 ;;; https://github.com/emacs-helm/helm/issues/1586.

+;;; Fallback on 'find' if 'locate' is not available.
+(unless (executable-find "locate")
+  (setq helm-locate-recursive-dirs-command "find %s -type d -regex .*%s.*$"))
+
 (setq helm-window-show-buffers-function 'helm-window-mosaic-fn)

 (provide 'init-helm)