X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/dc63e41323d772bb1b4b9870fad08ac65745b7f2..a7e8cf3c93b403253d304981ef239521d074a419:/dired-async.el

diff --git a/dired-async.el b/dired-async.el
index c18ec5392..df8ea01d3 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -44,7 +44,6 @@
 
 (eval-when-compile
   (defvar async-callback))
-;; (defvar dired-async-operation nil)
 
 (defgroup dired-async nil
   "Copy rename files asynchronously from dired."
@@ -226,9 +225,11 @@ ESC or `q' to not overwrite any of the remaining files,
                            (push (cons from to) async-fn-list))
                       (progn
                         (push (dired-make-relative from) failures)
-                        (dired-log "%s `%s' to `%s' failed"
+                        (dired-log "%s `%s' to `%s' failed\n"
                                    operation from to)))
                   (push (cons from to) async-fn-list)))))
+      ;; When failures have been printed to dired log add the date at bob.
+      (when (or failures skipped) (dired-log t))
       ;; When async-fn-list is empty that's mean only one file
       ;; had to be copied and user finally answer NO.
       ;; In this case async process will never start and callback