branch: externals/ssh-deploy commit a1dbc2f5d6bb31d2306ec9fcb515e6757c38325d Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
Using unless instead of (when (not --- ssh-deploy.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ssh-deploy.el b/ssh-deploy.el index d8bab8e..b20a262 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)) + (unless (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)) + (unless (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,7 +318,7 @@ (defun ssh-deploy--mode-line-status-refresh () "Refresh the status text based on the status variable." - (when (not (listp ssh-deploy--mode-line-status)) + (unless (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)))