[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Stefan Monnier
Subject: [elpa] externals/ssh-deploy 2f281c3 158/173: Fixed bug in (when (not to (unless conversion
Date: Sat, 20 Oct 2018 10:36:49 -0400 (EDT)

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]