[elpa] externals/ssh-deploy 2af7bec 007/133: Mode-line working again after changes

[Stefan Monnier]

branch: externals/ssh-deploy
commit 2af7bec4248b90171b52175d23c5a2f4bef52f35
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Mode-line working again after changes
---
 ssh-deploy.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index f8e26d9..5e810fa 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -329,8 +329,7 @@
 
 (defun ssh-deploy--mode-line-set-status-and-update (status &optional filename)
   "Set the mode line STATUS in optionally in buffer visiting FILENAME."
-  (if (and (boundp 'filename)
-           filename)
+  (if filename
       (let ((buffer (find-buffer-visiting filename)))
         (when buffer
           (with-current-buffer buffer
@@ -357,8 +356,7 @@
 
 (defun ssh-deploy--mode-line-status-update (&optional status)
   "Update the local status text variable to a text representation based on 
STATUS."
-  (unless (and (boundp 'status)
-               status)
+  (unless status
     ;; (message "SSH Deploy -Resetting status: %s" status)
     (setq status ssh-deploy--status-undefined))
   (let ((status-text ""))
@@ -371,7 +369,7 @@
       (setq status-text "ul.."))
 
      ((= status ssh-deploy--status-deleting)
-      (setq status-text ".."))
+      (setq status-text "rm.."))
 
      ((= status ssh-deploy--status-renaming)
       (setq status-text "mv.."))
@@ -392,7 +390,7 @@
   "Return a formatted string based on TEXT."
   (if (string= text "")
       ""
-    (format " [DPL:%s] " text)))
+    (format " {DPLY:%s} " text)))
 
 (defun ssh-deploy--insert-keyword (text)
   "Insert TEXT as bold text."
@@ -1389,6 +1387,7 @@
   :global t
   :group 'ssh-deploy
   (add-to-list 'global-mode-string 'ssh-deploy--mode-line-status-text t))
+
 (ssh-deploy--mode-line-status-refresh)