From: TAKAHASHI Kaoru <kaoru@kaisei.org>
Date: Sun, 12 Sep 2010 13:13:58 +0000 (+0900)
Subject: * riece-misc.el (riece-insert): Suppress byte-compile warnings;
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=8ba6197e3d3d447041e8dac6ba0c56275fb19c28

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