[elpa] externals/ssh-deploy 89fb82a 038/173: Fixed bug when downloading via SSH to a local path containing whitespaces

[Stefan Monnier]

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

    Fixed bug when downloading via SSH to a local path containing whitespaces
---
 ssh-deploy.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index 5f7531f..6cf9ee6 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -256,7 +256,7 @@
   "Download file REMOTE to LOCAL via ssh."
   (let ((command (concat (shell-quote-argument (alist-get 'username remote)) 
"@" (shell-quote-argument (alist-get 'server remote)) ":" (shell-quote-argument 
(alist-get 'path remote)))))
     (message "Downloading file '%s' to '%s' via SSH.." command local)
-    (ssh-deploy--run-shell-command (concat "scp " command " " local))))
+    (ssh-deploy--run-shell-command (concat "scp " command " " 
(shell-quote-argument local)))))
 
 (defun ssh-deploy--upload-directory-via-ssh (local remote local-root)
   "Upload directory LOCAL to REMOTE and LOCAL-ROOT via ssh."
@@ -278,7 +278,7 @@
           (ssh-deploy--run-shell-command (concat "scp -r " command "* " 
(shell-quote-argument local)))))
     (progn
       (let ((command (concat (shell-quote-argument (alist-get 'username 
remote)) "@" (shell-quote-argument (alist-get 'server remote)) ":" 
(shell-quote-argument (alist-get 'path remote)))))
-        (ssh-deploy--run-shell-command (concat "scp -r " command " " 
(file-name-directory (directory-file-name local))))))))
+        (ssh-deploy--run-shell-command (concat "scp -r " command " " 
(shell-quote-argument (file-name-directory (directory-file-name local)))))))))
 
 (defun ssh-deploy--upload-file-via-ftp (local remote)
   "Upload file LOCAL to REMOTE via ftp."