From a84921bd5f571f4746b86981c9d1c9d8dc4ee113 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sun, 9 May 2021 15:10:54 +0200 Subject: [PATCH] Helm: Fix Strawberry integration. --- .emacs.d/lisp/init-helm.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/.emacs.d/lisp/init-helm.el b/.emacs.d/lisp/init-helm.el index 769292d8..be264017 100644 --- a/.emacs.d/lisp/init-helm.el +++ b/.emacs.d/lisp/init-helm.el @@ -300,10 +300,11 @@ With prefix argument, UPDATE the databases with custom uptions thanks to the "strawberry" "EMMS")) (lambda (_candidate) - (let ((adder))) (or (when (executable-find "strawberry") (apply #'call-process - "strawberry" nil nil nil (helm-marked-candidates))))) + "strawberry" nil nil nil (helm-marked-candidates))) + (when (require 'emms nil 'noerror) + (mapc 'emms-add-directory-tree (helm-marked-candidates))))) source (lambda (candidate) (or (file-directory-p candidate)