diff --git a/emacs.el b/emacs.el index 13f837b..9dff767 100644 --- a/emacs.el +++ b/emacs.el @@ -739,14 +739,18 @@ found, otherwise returns nil." ;; (set-variable 'fzf/executable "sk") ;; (set-variable 'fzf/args "--color bw --print-query") ;; Modified from hardcoded default to include directories, hidden files, and root directory - (let ((defcmd (concat "set -o pipefail; " - "command find -L . " - "\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune " - "-o -print 2> /dev/null " - "| " - "sed -e 's|^\\./||'"))) + (let* ((find (if (executable-find "bfs") + ;; Breadth-first find https://github.com/tavianator/bfs + "bfs" + "find")) + (defcmd (concat "set -o pipefail; " + "command " find " -L . " + "\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune " + "-o -print 2> /dev/null " + "| " + "sed -e 's|^\\./||'"))) (setenv "FZF_DEFAULT_COMMAND" defcmd)) - ;; (define-key ctl-x-map (kbd "C-f") 'fzf) + (define-key ctl-x-map (kbd "C-f") 'fzf) ) (when (safe-require-or-eval 'recently)