branch: externals/ssh-deploy
commit 57051042e1d49b3257a4fcea501ea31e6a24f526
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
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)))
