Add fzf configuration

emacs.el

@@ -732,14 +732,14 @@ found, otherwise returns nil."
 ;; file handling
 
 ;; Cannot goto directory from 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 (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-"))
+    (setenv "FZF_DEFAULT_COMMAND" defcmd))
+  (define-key ctl-x-map (kbd "C-f") 'fzf))
 
 (when (safe-require-or-eval 'recently)
   (recently-mode 1))