* 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 (file)
--- 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 (file)
--- 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)