diff options
| -rw-r--r-- | lisp/net/tramp-sh.el | 9 |
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'." | |||
| 4464 | (zerop | 4464 | (zerop |
| 4465 | (tramp-call-local-coding-command | 4465 | (tramp-call-local-coding-command |
| 4466 | (format | 4466 | (format |
| 4467 | "echo %s | %s | %s" magic | ||
| 4467 | ;; Windows shells need the program file name after | 4468 | ;; Windows shells need the program file name after |
| 4468 | ;; the pipe symbol be quoted if they use forward | 4469 | ;; the pipe symbol be quoted if they use forward |
| 4469 | ;; slashes as directory separators. | 4470 | ;; slashes as directory separators. |
| 4470 | (if (memq system-type '(windows-nt)) | 4471 | (mapconcat |
| 4471 | "echo %s | \"%s\" | \"%s\"" | 4472 | 'shell-quote-argument (split-string compress) " ") |
| 4472 | "echo %s | %s | %s") | 4473 | (mapconcat |
| 4473 | magic compress decompress) | 4474 | 'shell-quote-argument (split-string decompress) " ")) |
| 4474 | nil nil)) | 4475 | nil nil)) |
| 4475 | (throw 'next nil)) | 4476 | (throw 'next nil)) |
| 4476 | (tramp-message | 4477 | (tramp-message |