From: TAKAHASHI Kaoru <kaoru@kaisei.org>
Date: Sun, 12 Sep 2010 13:06:20 +0000 (+0900)
Subject: * riece.el (riece-create-buffers): Suppress byte-compile
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=7a05558868018a20692857f1134a7e0ff028c1e7;hp=64fb112ec0902a1cb6edd8c4c0dc1d08d5ffdb12

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28517c2..009cc07 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* riece.el (riece-create-buffers): Suppress byte-compile
+	warnings; `save-excursion' defeated by `set-buffer'.
+
 	* riece-display.el (riece-display-connect-signals)
 	(riece-update-buffers): Suppress byte-compile
 	warnings; `save-excursion' defeated by `set-buffer'.
diff --git a/lisp/riece.el b/lisp/riece.el
index 9936dcd..bce18ad 100644
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -521,9 +521,8 @@ Instead, these commands are available:
 (defun riece-create-buffers ()
   (let ((alist riece-buffer-alist))
     (while alist
-      (save-excursion
-	(set-buffer (apply #'riece-get-buffer-create
-			   (cdr (car alist))))
+      (with-current-buffer (apply #'riece-get-buffer-create
+				  (cdr (car alist)))
 	(set (car (car alist)) (current-buffer))
 	(unless (or (null (nth 2 (car alist)))
 		    (eq major-mode (nth 2 (car alist))))