From: Michael Albinus Date: Fri, 2 Feb 2018 13:33:33 +0000 (+0100) Subject: Fix quoting in tramp-find-inline-compress for w32 X-Git-Tag: emacs-27.0.90~5752 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecc6257f48eb3a87d93ebe91f18b1d871faece5d;p=emacs.git 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 . --- 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