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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 94284c7..91c50e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * riece-misc.el (riece-insert): Suppress byte-compile warnings;
+       `save-excursion' defeated by `set-buffer'.
+
        * riece-keepalive.el (riece-keepalive-after-login-hook): Suppress
        byte-compile warnings; `save-excursion' defeated by `set-buffer'.
 

diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el
index fb511b5..2aa1286 100644 (file)
--- a/lisp/riece-misc.el
+++ b/lisp/riece-misc.el
@@ -66,8 +66,7 @@
     (setq buffers (list buffers)))
   (while buffers
     (run-hooks 'riece-before-insert-functions)
-    (save-excursion
-      (set-buffer (car buffers))
+    (with-current-buffer (car buffers)
       (let ((inhibit-read-only t)
            buffer-read-only
            (start (goto-char (point-max)))