From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Date: Sat, 30 Apr 2016 19:03:48 +0000 (+0200)
Subject: Fix operation arg of callback.
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/4f6b98d08345a3b37b3cd5402d67353ece5f1ce1

Fix operation arg of callback.

* dired-async.el (dired-async-after-file-create):
Use the car.
---

diff --git a/dired-async.el b/dired-async.el
index d97195354..c4dca0852 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -141,13 +141,13 @@ Should take same args as `message'."
                   (funcall dired-async-message-function
                            "%s failed for %d of %d file%s"
                            'dired-async-failures
-                           operation (length failures)
+                           (car operation) (length failures)
                            total (dired-plural-s total)))
                  (skipped
                   (funcall dired-async-message-function
                            "%s: %d of %d file%s skipped"
                            'dired-async-failures
-                           operation (length skipped) total
+                           (car operation) (length skipped) total
                            (dired-plural-s total))))
            ;; Finally send the success message.
            (funcall dired-async-message-function