[elpa] externals/ssh-deploy 0ff0f77 152/173: Using a stack for buffer status instead

[Stefan Monnier]

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

    Using a stack for buffer status instead
---
 ssh-deploy.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index f510730..1e3bb82 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -281,7 +281,7 @@
 (defconst ssh-deploy--status-detecting-remote-changes 5
   "The mode-line status for detecting remote changes.")
 
-(defvar ssh-deploy--mode-line-status 0
+(defvar ssh-deploy--mode-line-status '()
   "The mode-line status displayed in mode-line.")
 
 (defvar ssh-deploy--mode-line-status-text ""
@@ -301,21 +301,23 @@
       (let ((buffer (find-buffer-visiting filename)))
         (when buffer
           (with-current-buffer buffer
-            (setq ssh-deploy--mode-line-status status)
+            (push status ssh-deploy--mode-line-status)
             ;; (message "SSH Deploy - Updated status to %s" 
ssh-deploy--mode-line-status)
             (ssh-deploy--mode-line-status-refresh))))
     (progn
-      (setq ssh-deploy--mode-line-status status)
+      (push status ssh-deploy--mode-line-status)
       ;; (message "SSH Deploy - Updated status to %s" 
ssh-deploy--mode-line-status)
       (ssh-deploy--mode-line-status-refresh))))
 
-
 (defun ssh-deploy--mode-line-status-refresh ()
   "Refresh the status text based on the status variable."
-  (ssh-deploy--mode-line-status-update ssh-deploy--mode-line-status))
+  (ssh-deploy--mode-line-status-update (pop ssh-deploy--mode-line-status)))
 
 (defun ssh-deploy--mode-line-status-update (status)
   "Update the local status text variable to a text representation based on 
STATUS."
+  (when (or (not (boundp 'status))
+            (null status))
+    (setq status 10))
   (let ((status-text ""))
     (cond
 
@@ -337,7 +339,7 @@
      ((= status ssh-deploy--status-detecting-remote-changes)
       (setq status-text "diff.."))
 
-     (t (setq status-text "?"))
+     (t (setq status-text ""))
 
      )
     (make-local-variable 'ssh-deploy--mode-line-status-text)