[elpa] externals/ssh-deploy c58f524 141/173: Using (with-current-buffer) instead of (switch-to-buffer)

[Stefan Monnier]

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

    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."