From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Date: Wed, 27 Apr 2016 10:27:06 +0000 (+0200)
Subject: Remove unuseful code never called.
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/e35506faac6315da3c25b72682c99210b2d0bb28?hp=6e29e825fc44a57f98cc988880498f3af6c34014

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.
---

diff --git a/dired-async.el b/dired-async.el
index b253ca217..418f265e9 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 ()