Use bfs if available

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)