[elpa] master ec1f0e8 034/187: * helm-async.el: let-bind dired-recursive-copies to 'always to avoid hanging on child.

[Michael Albinus]

branch: master
commit ec1f0e80b63200d838131c345234038f4a065367
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    * 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