From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Date: Sun, 1 May 2016 15:47:58 +0000 (+0200)
Subject: Fix success message on callback.
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/dd09794572d1d3c1d6d277ac31b4c6d67d7fda93?hp=65521354115e2a6ab7d8d2073a273a72208220bc

Fix success message on callback.

* dired-async.el (dired-async-after-file-create):
Remove one "file(s)" which seems redundant and use dired-plural-s.
---

diff --git a/dired-async.el b/dired-async.el
index 3f62cd58d..c6ff0b9e3 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -153,9 +153,10 @@ Should take same args as `message'."
                            (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"
+                    "Asynchronous %s of %s on %s file%s done"
                     'dired-async-message
-                    (car operation) (cadr operation) total))))))
+                    (car operation) (cadr operation)
+                    total (dired-plural-s total)))))))
 
 (defun dired-async-maybe-kill-ftp ()
   "Return a form to kill ftp process in child emacs."