[elpa] externals/async d65fb9d80d 1/2: dired-async-skip-fast is not used fix it

[ELPA Syncer]

branch: externals/async
commit d65fb9d80de6df8f26540c9ecb65b26d09eab59a
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    dired-async-skip-fast is not used fix it
    
    Also, always use async when file-creator is backup-file.
---
 dired-async.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/dired-async.el b/dired-async.el
index 05a6d88dca..47a87212ef 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -217,15 +217,18 @@ See `dired-create-files' for FILE-CREATOR and 
NAME-CONSTRUCTOR."
              (dired-async--same-device-p file (file-name-directory new))))))
 
 (defun dired-async--smart-create-files (old-func file-creator operation 
fn-list name-constructor
-                                                 &optional marker-char)
+                                        &optional marker-char)
   "Around advice for `dired-create-files'.
 Uses async like `dired-async-create-files' but skips certain fast
 cases if `dired-async-skip-fast' is non-nil."
   (let (async-list quick-list)
-    (dolist (old fn-list)
-      (if (dired-async--skip-async-p file-creator old name-constructor)
-          (push old quick-list)
-        (push old async-list)))
+    (if (or (eq file-creator 'backup-file)
+            (null dired-async-skip-fast))
+        (setq async-list fn-list)
+      (dolist (old fn-list)
+        (if (dired-async--skip-async-p file-creator old name-constructor)
+            (push old quick-list)
+          (push old async-list))))
     (when async-list
       (dired-async-create-files file-creator operation (nreverse async-list) 
name-constructor marker-char))
     (when quick-list