[elpa] externals/ssh-deploy b17f543 151/173: line status does not get stuck on asynchronously uploads/downloads

[Stefan Monnier]

branch: externals/ssh-deploy
commit b17f543fe56947d472659675de53757e29ad2fc0
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>

    line status does not get stuck on asynchronously uploads/downloads
---
 ssh-deploy.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index 8b0eb75..f510730 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: 7 July 2018
-;; Version: 1.92
+;; Modified: 8 July 2018
+;; Version: 1.93
 ;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-ssh-deploy
 
@@ -348,7 +348,7 @@
 (defun ssh-deploy--mode-line-status-text-format (text)
   "Return a formatted string based on TEXT."
   (if (string= text "")
-      (format " [DPL] ")
+      ""
     (format " [DPL:%s] " text)))
 
 (defun ssh-deploy--insert-keyword (text)
@@ -388,7 +388,7 @@
   "Upload PATH-LOCAL to PATH-REMOTE via TRAMP asynchronously and FORCE upload 
despite remote change, check for revisions in REVISION-FOLDER."
   (if (fboundp 'async-start)
       (let ((file-or-directory (not (file-directory-p path-local))))
-        (ssh-deploy--mode-line-set-status-and-update 
ssh-deploy--status-uploading)
+        (ssh-deploy--mode-line-set-status-and-update 
ssh-deploy--status-uploading path-local)
         (if file-or-directory
             (let ((revision-path (ssh-deploy--get-revision-path path-local 
revision-folder)))
               (message "Uploading file '%s' to '%s'.. (asynchronously)" 
path-local path-remote)
@@ -453,7 +453,7 @@
   "Download PATH-REMOTE to PATH-LOCAL via TRAMP asynchronously and make a copy 
in REVISION-FOLDER."
   (if (fboundp 'async-start)
       (let ((revision-path (ssh-deploy--get-revision-path path-local 
revision-folder)))
-        (ssh-deploy--mode-line-set-status-and-update 
ssh-deploy--status-downloading)
+        (ssh-deploy--mode-line-set-status-and-update 
ssh-deploy--status-downloading path-local)
         (message "Downloading '%s' to '%s'.. (asynchronously)" path-remote 
path-local)
         (async-start
          `(lambda()