Fix quoting in tramp-find-inline-compress for w32

* lisp/net/tramp-sh.el (tramp-find-inline-compress): Improve command
quoting for w32.  Reported by Chris Zheng <chriszheng99@gmail.com>.

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 5ee8f93870c..5204ec725a3 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -4464,13 +4464,14 @@ Goes through the list `tramp-inline-compress-commands'."
               (zerop
                (tramp-call-local-coding-command
                 (format
+                 "echo %s | %s | %s" magic
                  ;; Windows shells need the program file name after
                  ;; the pipe symbol be quoted if they use forward
                  ;; slashes as directory separators.
-                 (if (memq system-type '(windows-nt))
-                     "echo %s | \"%s\" | \"%s\""
-                   "echo %s | %s | %s")
-                 magic compress decompress)
+                 (mapconcat
+                  'shell-quote-argument (split-string compress) " ")
+                 (mapconcat
+                  'shell-quote-argument (split-string decompress) " "))
                 nil nil))
             (throw 'next nil))
           (tramp-message