[elpa] externals/ssh-deploy a1dbc2f 156/173: Using unless instead of (when (not

[Stefan Monnier]

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)))