branch: elpa/helm
commit ba2ecc62544aa152cb49cb35408a9e82a19f6c84
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Add byte recompile directory async action to HFF
---
helm-files.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/helm-files.el b/helm-files.el
index e7e4244612..e22997c6f4 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -96,6 +96,7 @@
(declare-function helm-epa-collect-id-from-candidates "helm-epa")
(declare-function helm-epa-collect-keys-from-candidates "helm-epa")
(declare-function async-byte-compile-file "async-bytecomp.el")
+(declare-function async-byte-recompile-directory "async-bytecomp.el")
(defvar term-char-mode-point-at-process-mark)
(defvar term-char-mode-buffer-read-only)
@@ -4579,6 +4580,10 @@ Arg FILE is the real part of candidate, a filename with
no props."
. (lambda (_candidate)
(cl-loop for file in (helm-marked-candidates)
do (async-byte-compile-file file))))
+ ("Byte recompile directory async"
+ . (lambda (_)
+ (async-byte-recompile-directory
+ helm-ff-default-directory)))
("Load File(s) `M-L'" . helm-find-files-load-files))
2))
((string-match (concat (regexp-opt load-suffixes) "\\'") candidate)
