branch: elpa/helm
commit 5359372ac2ca99647d985c7317c9923184cef7cf
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Add byte compile file async action to HFF
---
helm-files.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/helm-files.el b/helm-files.el
index 961a3043db..e7e4244612 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -95,6 +95,7 @@
(declare-function helm-epa-success-message "helm-epa")
(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")
(defvar term-char-mode-point-at-process-mark)
(defvar term-char-mode-buffer-read-only)
@@ -4574,6 +4575,10 @@ Arg FILE is the real part of candidate, a filename with
no props."
actions
'(("Byte compile lisp file(s) `M-B, C-u to load'"
. helm-find-files-byte-compile)
+ ("Byte compile file(s) async"
+ . (lambda (_candidate)
+ (cl-loop for file in (helm-marked-candidates)
+ do (async-byte-compile-file file))))
("Load File(s) `M-L'" . helm-find-files-load-files))
2))
((string-match (concat (regexp-opt load-suffixes) "\\'") candidate)
