From 9a82294528eb8752898ab6c130ec575db11ab687 Mon Sep 17 00:00:00 2001
From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Date: Sat, 30 Apr 2016 22:29:14 +0200
Subject: [PATCH] DRY use apply.

* dired-async.el (dired-async-after-file-create): Do it.
(dired-async-create-files):                       Do it.
---
 dired-async.el | 46 ++++++++++++++++++++++------------------------
 1 file changed, 22 insertions(+), 24 deletions(-)

diff --git a/dired-async.el b/dired-async.el
index c18ec5392..1865edad9 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -137,18 +137,17 @@ Should take same args as `message'."
          0.1 nil
          (lambda ()
            ;; First send error messages.
-           (cond (failures
-                  (funcall dired-async-message-function
-                           "%s failed for %d of %d file%s"
-                           'dired-async-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
-                           (car operation) (length skipped) total
-                           (dired-plural-s total))))
+           (apply dired-async-message-function
+                  (cond (failures
+                         (list "%s failed for %d of %d file%s"
+                               'dired-async-failures
+                               (car operation) (length failures)
+                               total (dired-plural-s total)))
+                        (skipped
+                         (list "%s: %d of %d file%s skipped"
+                               'dired-async-failures
+                               (car operation) (length skipped) total
+                               (dired-plural-s total)))))
            ;; Finally send the success message.
            (funcall dired-async-message-function
                     "Asynchronous %s of %s file(s) on %s file(s) done"
@@ -234,18 +233,17 @@ ESC or `q' to not overwrite any of the remaining files,
       ;; In this case async process will never start and callback
       ;; will have no chance to run, so notify failures here.
       (unless async-fn-list
-        (cond (failures
-               (funcall dired-async-message-function
-                        "%s failed for %d of %d file%s"
-                        'dired-async-failures
-                        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
-                        (dired-plural-s total)))))
+        (apply dired-async-message-function
+               (cond (failures
+                      (list "%s failed for %d of %d file%s"
+                            'dired-async-failures
+                            operation (length failures)
+                            total (dired-plural-s total)))
+                     (skipped
+                      (list "%s: %d of %d file%s skipped"
+                            'dired-async-failures
+                            operation (length skipped) total
+                            (dired-plural-s total))))))
       ;; Setup callback.
       (setq callback
             (lambda (&optional _ignore)
-- 
2.39.2