[elpa] externals/ssh-deploy 2f281c3 158/173: Fixed bug in (when (not to (unless conversion

[Stefan Monnier]

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

    Fixed bug in (when (not to (unless conversion
---
 ssh-deploy.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index a4adb51..ee8ed04 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -319,7 +319,7 @@
 (defun ssh-deploy--mode-line-status-refresh ()
   "Refresh the status text based on the status variable."
   (unless (listp ssh-deploy--mode-line-status)
-    ;; (message "Resetting status %s" 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)
@@ -327,8 +327,8 @@
 
 (defun ssh-deploy--mode-line-status-update (&optional status)
   "Update the local status text variable to a text representation based on 
STATUS."
-  (unless (or (boundp 'status)
-              (not status))
+  (unless (and (boundp 'status)
+               status)
     ;; (message "SSH Deploy -Resetting status: %s" status)
     (setq status ssh-deploy--status-undefined))
   (let ((status-text ""))
@@ -1418,7 +1418,6 @@
 ;;; Mode Line
 
 
-
 (define-minor-mode ssh-deploy-line-mode
   "Show SSH Deploy status in mode line"
   :global t