From: José L. Doménech <domenechjosel@gmail.com>
Date: Sun, 30 Oct 2016 01:18:31 +0000 (-0400)
Subject: Quote file names in dired compression commands
X-Git-Tag: emacs-26.0.90~1402
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27443df092bfb4ada559f8fc024e01f174a5bcb0;p=emacs.git

Quote file names in dired compression commands

* lisp/dired-aux.el (dired-do-compress-to): Change the string
used as shell command for compression by quoting the filenames
used for input and output (Bug #24620).
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index d25352ec5bc..972b6b1ade0 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1012,11 +1012,13 @@ and `dired-compress-files-alist'."
           (t
            (when (zerop
                   (dired-shell-command
-                   (replace-regexp-in-string
-                    "%o" out-file
-                    (replace-regexp-in-string
-                     "%i" (mapconcat #'file-name-nondirectory in-files " ")
-                     (cdr rule)))))
+                   (format-spec (cdr rule)
+                                `((?\o . ,(shell-quote-argument out-file))
+                                  (?\i . ,(mapconcat
+                                           (lambda (file-desc)
+                                             (shell-quote-argument (file-name-nondirectory
+                                                                    file-desc)))
+                                           in-files " "))))))
              (message "Compressed %d file(s) to %s"
                       (length in-files)
                       (file-name-nondirectory out-file)))))))