[elpa] externals/ssh-deploy 3bbbbfb 017/173: *** empty log message ***

[Stefan Monnier]

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

    *** empty log message ***
---
 ssh-deploy.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index 333acc3..27bebe1 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -81,9 +81,10 @@
 
 (defun ssh-deploy-browse-remote (local-root remote-root path)
   "Browse relative to LOCAL-ROOT on REMOTE-ROOT the path PATH in `dired-mode`."
-  (let ((remote-path (concat remote-root (replace-regexp-in-string local-root 
"" path))))
-    (message "Opening '%s' for browsing on remote host.." remote-path)
-    (dired (concat "/ssh:" remote-path))))
+  (if (ssh-deploy-file-is-in-path path local-root)
+      (let ((remote-path (concat remote-root (replace-regexp-in-string 
local-root "" path))))
+        (message "Opening '%s' for browsing on remote host.." remote-path)
+        (dired (concat "/ssh:" remote-path)))))
 
 (defun ssh-deploy-remote-terminal (remote-host)
   "Opens REMOTE-HOST in tramp terminal."
@@ -97,8 +98,7 @@
 
 (defun ssh-deploy-file-is-in-path (file path)
   "Return true if FILE is in the path PATH."
-  (not (null (string-match path file)))
-  )
+  (not (null (string-match path file))))
 
 (defun ssh-deploy-diff (local-root remote-root path)
   "Find differences relative to the roots LOCAL-ROOT with REMOTE-ROOT via ssh 
and the path PATH."