branch: externals/ssh-deploy
commit c58f5247d8c795d57af58acf19c7ab3d0c551727
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Using (with-current-buffer) instead of (switch-to-buffer)
---
ssh-deploy.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index 70ebf43..4fd46da 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -298,9 +298,8 @@
"Set the mode line STATUS in optionally in buffer visiting FILENAME."
(if (and (boundp 'filename)
filename)
- (save-excursion
- (let ((buffer (find-buffer-visiting filename)))
- (switch-to-buffer buffer)
+ (let ((buffer (find-buffer-visiting filename)))
+ (with-current-buffer buffer
(setq ssh-deploy--mode-line-status status)
;; (message "SSH Deploy - Updated status to %s"
ssh-deploy--mode-line-status)
(ssh-deploy--mode-line-status-refresh)))
@@ -342,7 +341,8 @@
)
(make-local-variable 'ssh-deploy--mode-line-status-text)
(setq ssh-deploy--mode-line-status-text
(ssh-deploy--mode-line-status-text-format status-text))
- (message "SSH Deploy - Updated status text to %s"
ssh-deploy--mode-line-status-text)))
+ ;; (message "SSH Deploy - Updated status text to %s"
ssh-deploy--mode-line-status-text)
+ ))
(defun ssh-deploy--mode-line-status-text-format (text)
"Return a formatted string based on TEXT."
