* riece-filter.el (riece-filter): Suppress byte-compile warnings;

`save-excursion' defeated by `set-buffer'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 009cc07..998a18d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * riece-filter.el (riece-filter): Suppress byte-compile warnings;
+       `save-excursion' defeated by `set-buffer'.
+
        * riece.el (riece-create-buffers): Suppress byte-compile
        warnings; `save-excursion' defeated by `set-buffer'.
 

diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el
index 1249dd7..42900e9 100644 (file)
--- a/lisp/riece-filter.el
+++ b/lisp/riece-filter.el
@@ -72,8 +72,7 @@
     string))
 
 (defun riece-filter (process input)
-  (save-excursion
-    (set-buffer (process-buffer process))
+  (with-current-buffer (process-buffer process)
     (goto-char (point-max))
     (insert input)
     (unless riece-filter-running