Add quoted

emacs.el

@@ -732,8 +732,14 @@ found, otherwise returns nil."
 ;; file handling
 
 ;; Cannot goto directory from fzf
-;; (when (autoload-eval-lazily 'fzf)
-;;   (define-key ctl-x-map (kbd "C-f") 'fzf))
+'(when (autoload-eval-lazily 'fzf)
+   ;; Too slow!
+   ;; (set-variable 'fzf/executable "sk")
+   ;; (set-variable 'fzf/args "--color bw --print-query")
+   ;; Modified from hardcoded default to include directories
+   (let ((defcmd "set -o pipefail; command find -L . -mindepth 1 \\( -path '*/\\.*' -o -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune -o -print 2> /dev/null | cut -b3-"))
+     (shell-command-to-string defcmd))
+   (define-key ctl-x-map (kbd "C-f") 'fzf))
 
 (when (safe-require-or-eval 'recently)
   (recently-mode 1))