Fix success message on callback.

[gnu-emacs-elpa] / dired-async.el

diff --git a/dired-async.el b/dired-async.el
index 3f62cd58dd915835930c2c2b9f25905cad6c45b2..c6ff0b9e3d96560e2eac075aa75839a4682256f3 100644 (file)
--- 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."