From: TAKAHASHI Kaoru <kaoru@kaisei.org>
Date: Sun, 12 Sep 2010 13:10:01 +0000 (+0900)
Subject: * riece-server.el (riece-reset-process-buffer): Suppress
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=b0b80d7382338f859999eedd490d51bfab6f04c8

* riece-server.el (riece-reset-process-buffer): Suppress
byte-compile warnings; `save-excursion' defeated by `set-buffer'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 998a18d..f8e72ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* riece-server.el (riece-reset-process-buffer): Suppress
+	byte-compile warnings; `save-excursion' defeated by `set-buffer'.
+
 	* riece-filter.el (riece-filter): Suppress byte-compile warnings;
 	`save-excursion' defeated by `set-buffer'.
 
diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index b68c5a0..46c8148 100644
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -243,8 +243,7 @@ the `riece-server-keyword-map' variable."
 	(funcall function process message))))
 
 (defun riece-reset-process-buffer (process)
-  (save-excursion
-    (set-buffer (process-buffer process))
+  (with-current-buffer (process-buffer process)
     (if (fboundp 'set-buffer-multibyte)
 	(set-buffer-multibyte nil))
     (kill-all-local-variables)