emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 7bba702: Use ngettext instead of dired-plural-s in


From: Juri Linkov
Subject: [Emacs-diffs] master 7bba702: Use ngettext instead of dired-plural-s in Dired (bug#35287)
Date: Sun, 5 May 2019 15:43:33 -0400 (EDT)

branch: master
commit 7bba702e1ad1ed343618e44cf5bbc2a1f079be0c
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    Use ngettext instead of dired-plural-s in Dired (bug#35287)
    
    * lisp/dired-aux.el (dired-map-over-marks-check): Use ngettext
    instead of dired-plural-s.
    (dired-create-files): Also add colon after operation name.
    (dired-compare-directories): Use ngettext and format-message.
    (dired-do-compress-to): Use ngettext.
    
    * lisp/dired.el (dired-internal-do-deletions)
    (dired-clean-up-after-deletion): Use ngettext instead of dired-plural-s.
---
 lisp/dired-aux.el | 52 +++++++++++++++++++++++++++++++---------------------
 lisp/dired.el     | 12 +++++++-----
 2 files changed, 38 insertions(+), 26 deletions(-)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index b81c0d1..0cf9e6e 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -246,9 +246,11 @@ Examples of PREDICATE:
      (lambda ()
        (dired-mark-if
         (member (dired-get-filename nil t) file-list2) nil)))
-    (message "Marked in dir1: %s files, in dir2: %s files"
-             (length file-list1)
-             (length file-list2))))
+    (message "Marked in dir1: %s, in dir2: %s"
+             (format-message (ngettext "%d file" "%d files" (length 
file-list1))
+                             (length file-list1))
+             (format-message (ngettext "%d file" "%d files" (length 
file-list2))
+                             (length file-list2)))))
 
 (defun dired-file-set-difference (list1 list2 predicate)
   "Combine LIST1 and LIST2 using a set-difference operation.
@@ -1065,7 +1067,9 @@ and `dired-compress-files-alist'."
                                              (shell-quote-argument 
(file-name-nondirectory
                                                                     
file-desc)))
                                            in-files " "))))))
-             (message "Compressed %d file(s) to %s"
+             (message (ngettext "Compressed %d file to %s"
+                               "Compressed %d files to %s"
+                               (length in-files))
                       (length in-files)
                       (file-name-nondirectory out-file)))))))
 
@@ -1193,12 +1197,14 @@ Return nil if no change in files."
             (string (if (eq op-symbol 'compress) "Compress or uncompress"
                       (capitalize (symbol-name op-symbol)))))
        (if (not failures)
-           (message "%s: %d file%s."
-                    string total (dired-plural-s total))
+           (message (ngettext "%s: %d file." "%s: %d files." total)
+                    string total)
          ;; end this bunch of errors:
          (dired-log-summary
-          (format "Failed to %s %d of %d file%s"
-                  (downcase string) count total (dired-plural-s total))
+          (format (ngettext "Failed to %s %d of %d file"
+                             "Failed to %s %d of %d files"
+                             total)
+                  (downcase string) count total)
           failures)))))
 
 ;;;###autoload
@@ -1798,32 +1804,36 @@ ESC or `q' to not overwrite any of the remaining 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))
 
 (defun dired-do-create-files (op-symbol file-creator operation arg
diff --git a/lisp/dired.el b/lisp/dired.el
index 63082fe..3851265 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3212,9 +3212,10 @@ non-empty directories is allowed."
            (if (not failures)
                (progress-reporter-done progress-reporter)
              (dired-log-summary
-              (format "%d of %d deletion%s failed"
-                      (length failures) count
-                      (dired-plural-s count))
+              (format (ngettext "%d of %d deletion failed"
+                                "%d of %d deletions failed"
+                                count)
+                      (length failures) count)
               failures)))))
       (message "(No deletions performed)")))
   (dired-move-to-filename))
@@ -3267,8 +3268,9 @@ confirmation.  To disable the confirmation, see
     (let ((buf-list (dired-buffers-for-dir (expand-file-name fn))))
       (and buf-list
            (and dired-clean-confirm-killing-deleted-buffers
-                (y-or-n-p (format "Kill Dired buffer%s of %s, too? "
-                                  (dired-plural-s (length buf-list))
+                (y-or-n-p (format (ngettext "Kill Dired buffer of %s, too? "
+                                           "Kill Dired buffers of %s, too? "
+                                           (length buf-list))
                                   (file-name-nondirectory fn))))
            (dolist (buf buf-list)
              (kill-buffer buf))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]