branch: externals/ssh-deploy
commit de8eadd41ed36e6a4b911550a29443ff4d4a731e
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
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
