[elpa] master e35506f 18/39: Remove unuseful code never called.

[Thierry Volpiatto]

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

    Remove unuseful code never called.
    
    * dired-async.el (dired-async-create-files):
    Remove dired-create-files-failures stuff that don't happen on host but 
child.
---
 dired-async.el |   34 ++++++++++++----------------------
 1 file changed, 12 insertions(+), 22 deletions(-)

diff --git a/dired-async.el b/dired-async.el
index b253ca2..418f265 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -153,7 +153,6 @@ See `dired-create-files' for the behavior of arguments."
   (setq dired-async-operation nil)
   (setq overwrite-query nil)
   (let ((total (length fn-list))
-        dired-create-files-failures
         failures async-fn-list skipped callback)
     (let (to)
       (dolist (from fn-list)
@@ -218,27 +217,18 @@ ESC or `q' to not overwrite any of the remaining files,
                                   (with-current-buffer (get-file-buffer file)
                                     (set-visited-file-name to nil t))))))))
     ;; Handle error happening in host emacs.
-    (cond
-      (dired-create-files-failures
-       (setq failures (nconc failures dired-create-files-failures))
-       (dired-log-summary
-        (format "%s failed for %d file%s in %d requests"
-                operation (length failures)
-                (dired-plural-s (length failures))
-                total)
-        failures))
-      (failures
-       (dired-log-summary
-        (format "%s failed for %d of %d file%s"
-                operation (length failures)
-                total (dired-plural-s total))
-        failures))
-      (skipped
-       (dired-log-summary
-        (format "%s: %d of %d file%s skipped"
-                operation (length skipped) total
-                (dired-plural-s total))
-        skipped)))
+    (cond (failures
+           (dired-log-summary
+            (format "%s failed for %d of %d file%s"
+                    operation (length failures)
+                    total (dired-plural-s total))
+            failures))
+          (skipped
+           (dired-log-summary
+            (format "%s: %d of %d file%s skipped"
+                    operation (length skipped) total
+                    (dired-plural-s total))
+            skipped)))
     ;; Start async process.
     (when async-fn-list
       (async-start `(lambda ()