[elpa] externals/ssh-deploy 5705104 155/173: Fixed issue were status list initialization was not working

[Stefan Monnier]

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

    Fixed issue were status list initialization was not working
---
 ssh-deploy.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index 6bd5987..d8bab8e 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -304,13 +304,13 @@
       (let ((buffer (find-buffer-visiting filename)))
         (when buffer
           (with-current-buffer buffer
-            (when (not (listp 'ssh-deploy--mode-line-status))
+            (when (not (listp ssh-deploy--mode-line-status))
               (setq ssh-deploy--mode-line-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
-      (when (not (listp 'ssh-deploy--mode-line-status))
+      (when (not (listp ssh-deploy--mode-line-status))
         (setq ssh-deploy--mode-line-status '()))
       (push status ssh-deploy--mode-line-status)
       ;; (message "SSH Deploy - Updated status to: %s" 
ssh-deploy--mode-line-status)
@@ -318,6 +318,9 @@
 
 (defun ssh-deploy--mode-line-status-refresh ()
   "Refresh the status text based on the status variable."
+  (when (not (listp ssh-deploy--mode-line-status))
+    ;; (message "Resetting status %s" ssh-deploy--mode-line-status)
+    (setq ssh-deploy--mode-line-status '()))
   (let ((status (pop ssh-deploy--mode-line-status)))
     ;; (message "SSH Deploy - Refreshing status based on: %s" status)
     (ssh-deploy--mode-line-status-update status)))