branch: master
commit ec1f0e80b63200d838131c345234038f4a065367
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
* helm-async.el: let-bind dired-recursive-copies to 'always to avoid
hanging on child.
---
helm-async.el | 7 ++++---
1 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/helm-async.el b/helm-async.el
index 354bbd5..d2fdb4a 100644
--- a/helm-async.el
+++ b/helm-async.el
@@ -184,10 +184,11 @@ ESC or `q' to not overwrite any of the remaining files,
from to)))
(push (cons from to) async-fn-list)))))
(async-start `(lambda ()
- ,(async-inject-variables helm-async-env-variables-regexp)
(require 'cl) (require 'dired-aux)
- (loop for (f . d) in (quote ,async-fn-list)
- do (funcall (quote ,file-creator) f d t))
+ ,(async-inject-variables helm-async-env-variables-regexp)
+ (let ((dired-recursive-copies 'always))
+ (loop for (f . d) in (quote ,async-fn-list)
+ do (funcall (quote ,file-creator) f d t)))
,(helm-async-maybe-kill-ftp))
callback)
(cond
