Fix the 'T' command in Dired with non_ASCII file names

* lisp/dired-aux.el (dired-do-chxxx): Bind coding-system-for-write
to correctly encode file names passed to the invoked PROGRAM.
(Bug#24162)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 4732d9ce85cb34b76d8d0d49916a0a34125aa1cd..83fcf480b74b034749c0d05731b8ab838d967d1f 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -279,6 +279,14 @@ List has a form of (file-name full-file-name (attribute-list))."
                                                      ((eq op-symbol 'chgrp)
                                                       (system-groups)))))
         (operation (concat program " " new-attribute))
+         ;; When file-name-coding-system is set to something different
+         ;; from locale-coding-system, leaving the encoding
+         ;; determination to call-process will do the wrong thing,
+         ;; because the arguments in this case are file names, not
+         ;; just some arbitrary text.  (This must be bound last, to
+         ;; avoid adverse effects on any of the preceding forms.)
+         (coding-system-for-write (or file-name-coding-system
+                                      default-file-name-coding-system))
         failures)
     (setq failures
          (dired-bunch-files 10000