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