From: TAKAHASHI Kaoru <kaoru@kaisei.org>
Date: Sun, 12 Sep 2010 13:14:32 +0000 (+0900)
Subject: * riece-rdcc.el (riece-rdcc-filter, riece-rdcc-sentinel): Suppress
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=73bae3fb7fe11cc02b7416c13a786f9b28aa8df8

* riece-rdcc.el (riece-rdcc-filter, riece-rdcc-sentinel): Suppress
byte-compile warnings; `save-excursion' defeated by `set-buffer'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91c50e3..b0f0500 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* riece-rdcc.el (riece-rdcc-filter, riece-rdcc-sentinel): Suppress
+	byte-compile warnings; `save-excursion' defeated by `set-buffer'.
+
 	* riece-misc.el (riece-insert): Suppress byte-compile warnings;
 	`save-excursion' defeated by `set-buffer'.
 
diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el
index 977e3b3..cf602ff 100644
--- a/lisp/riece-rdcc.el
+++ b/lisp/riece-rdcc.el
@@ -173,8 +173,7 @@ end
     (riece-ruby-set-exit-handler name #'riece-rdcc-exit-handler)))
 
 (defun riece-rdcc-filter (process input)
-  (save-excursion
-    (set-buffer (process-buffer process))
+  (with-current-buffer (process-buffer process)
     (erase-buffer)
     (insert input)
     (let ((coding-system-for-write 'binary)
@@ -197,8 +196,7 @@ end
 	(set-process-filter process nil))))
 
 (defun riece-rdcc-sentinel (process status)
-  (save-excursion
-    (set-buffer (process-buffer process))
+  (with-current-buffer (process-buffer process)
     (unless (= riece-rdcc-received-size riece-rdcc-request-size)
       (error "Premature end of file"))
     (message (riece-mcat "Receiving %s from %s...done")