X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece.el;h=bce18adddc5ad8ea5227052c48133b68ddb080ae;hb=5a45c8b53ddb25f03bdab9f3491a92c064c47c7a;hp=9936dcd011921562db666f650bebbce3588a9a0f;hpb=60dc77f7a167b9703def4a28d9abf457bce67b31;p=riece

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