[elpa] externals/ssh-deploy de8eadd 067/173: Remote path is not shell escaped on upload and download because it

[Stefan Monnier]

branch: externals/ssh-deploy
commit de8eadd41ed36e6a4b911550a29443ff4d4a731e
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>

    Remote path is not shell escaped on upload and download because it
    caused issues with spaces in paths.
---
 ssh-deploy.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index b1afeb3..7634e9f 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -3,8 +3,8 @@
 ;; Author: Christian Johansson <github.com/cjohansson>
 ;; Maintainer: Christian Johansson <github.com/cjohansson>
 ;; Created: 5 Jul 2016
-;; Modified: 24 Apr 2017
-;; Version: 1.51
+;; Modified: 5 May 2017
+;; Version: 1.52
 ;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-ssh-deploy
 
@@ -183,7 +183,7 @@
   "Upload LOCAL path to REMOTE and LOCAL-ROOT via tramp asynchrously and FORCE 
upload despite external change."
   (if (fboundp 'async-start)
       (progn
-        (let ((remote-path (concat "/" (alist-get 'protocol remote) ":" 
(shell-quote-argument (alist-get 'username remote)) "@" (shell-quote-argument 
(alist-get 'server remote)) ":" (shell-quote-argument (alist-get 'path 
remote))))
+        (let ((remote-path (concat "/" (shell-quote-argument (alist-get 
'protocol remote)) ":" (shell-quote-argument (alist-get 'username remote)) "@" 
(shell-quote-argument (alist-get 'server remote)) ":" (alist-get 'path remote)))
               (file-or-directory (file-regular-p local)))
           (if file-or-directory
               (progn
@@ -226,7 +226,7 @@
 
 (defun ssh-deploy--upload-via-tramp (local remote local-root force)
   "Upload LOCAL path to REMOTE and LOCAL-ROOT via tramp synchrously and FORCE 
despite external change."
-  (let ((remote-path (concat "/" (alist-get 'protocol remote) ":" 
(shell-quote-argument (alist-get 'username remote)) "@" (shell-quote-argument 
(alist-get 'server remote)) ":" (shell-quote-argument (alist-get 'path 
remote))))
+  (let ((remote-path (concat "/" (shell-quote-argument (alist-get 'protocol 
remote)) ":" (shell-quote-argument (alist-get 'username remote)) "@" 
(shell-quote-argument (alist-get 'server remote)) ":" (alist-get 'path remote)))
         (file-or-directory (file-regular-p local)))
     (if file-or-directory
         (progn
@@ -251,7 +251,7 @@
   "Download REMOTE path to LOCAL and LOCAL-ROOT via tramp asynchronously."
   (if (fboundp 'async-start)
       (progn
-        (let ((remote-path (concat "/" (alist-get 'protocol remote) ":" 
(shell-quote-argument (alist-get 'username remote)) "@" (shell-quote-argument 
(alist-get 'server remote)) ":" (shell-quote-argument (alist-get 'path 
remote))))
+        (let ((remote-path (concat "/" (shell-quote-argument (alist-get 
'protocol remote)) ":" (shell-quote-argument (alist-get 'username remote)) "@" 
(shell-quote-argument (alist-get 'server remote)) ":" (alist-get 'path remote)))
               (file-or-directory (file-regular-p local)))
           (if file-or-directory
               (progn
@@ -284,7 +284,7 @@
 
 (defun ssh-deploy--download-via-tramp (remote local local-root)
   "Download REMOTE path to LOCAL and LOCAL-ROOT via tramp synchronously."
-  (let ((remote-path (concat "/" (alist-get 'protocol remote) ":" 
(shell-quote-argument (alist-get 'username remote)) "@" (shell-quote-argument 
(alist-get 'server remote)) ":" (shell-quote-argument (alist-get 'path 
remote))))
+  (let ((remote-path (concat "/" (shell-quote-argument (alist-get 'protocol 
remote)) ":" (shell-quote-argument (alist-get 'username remote)) "@" 
(shell-quote-argument (alist-get 'server remote)) ":" (alist-get 'path remote)))
         (file-or-directory (file-regular-p local)))
     (if file-or-directory
         (progn