bug#35287: dired-do-copy English beef-up

[Juri Linkov <juri@linkov.net>]

[-- Attachment #1: Type: text/plain, Size: 433 bytes --]

>> Then a complete set of messages:
>>
>>   Copy: 3 files done
>>   Copy: 2 of 3 files skipped
>>   Copy: 2 of 3 files failed
>>   Copy: 2 files in 3 requests failed
>
> What is the difference between the last two?

The latter is used for recursive operations.

> What about the current existing messages when
> there are failures, telling you to use `?' to
> see the details (the `dired-log' output)?

This is now unified as well:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: dired-aux.i18n.patch --]
[-- Type: text/x-diff, Size: 1903 bytes --]

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index b81c0d1a4f..e967f94e06 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1798,32 +1798,36 @@ dired-create-files
                (progn
                  (push (dired-make-relative from)
                        failures)
-                 (dired-log "%s `%s' to `%s' failed:\n%s\n"
+                 (dired-log "%s: `%s' to `%s' failed:\n%s\n"
                             operation from to err))))))))
     (cond
      (dired-create-files-failures
       (setq failures (nconc failures dired-create-files-failures))
       (dired-log-summary
-       (format "%s failed for %d file%s in %d requests"
-		operation (length failures)
-		(dired-plural-s (length failures))
-		total)
+       (format (ngettext "%s failed for %d file in %d requests"
+			 "%s failed for %d files in %d requests"
+			 (length failures))
+	       operation (length failures) total)
        failures))
      (failures
       (dired-log-summary
-       (format "%s failed for %d of %d file%s"
-		operation (length failures)
-		total (dired-plural-s total))
+       (format (ngettext "%s: %d of %d file failed"
+			 "%s: %d of %d files failed"
+			 total)
+	       operation (length failures) total)
        failures))
      (skipped
       (dired-log-summary
-       (format "%s: %d of %d file%s skipped"
-		operation (length skipped) total
-		(dired-plural-s total))
+       (format (ngettext "%s: %d of %d file skipped"
+			 "%s: %d of %d files skipped"
+			 total)
+	       operation (length skipped) total)
        skipped))
      (t
-      (message "%s: %s file%s"
-	       operation success-count (dired-plural-s success-count)))))
+      (message (ngettext "%s: %d file done"
+			 "%s: %d files done"
+			 success-count)
+	       operation success-count))))
   (dired-move-to-filename))
 \f
 (defun dired-do-create-files (op-symbol file-creator operation arg