From: TAKAHASHI Kaoru <kaoru@kaisei.org>
Date: Sun, 12 Sep 2010 13:13:18 +0000 (+0900)
Subject: * riece-keepalive.el (riece-keepalive-after-login-hook): Suppress
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=f6aa0d8a112032359a4feef41686ece62ed74e1f;ds=sidebyside

* riece-keepalive.el (riece-keepalive-after-login-hook): Suppress
byte-compile warnings; `save-excursion' defeated by `set-buffer'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f1ac0e..94284c7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* riece-keepalive.el (riece-keepalive-after-login-hook): Suppress
+	byte-compile warnings; `save-excursion' defeated by `set-buffer'.
+
 	* riece-kakasi.el (riece-kakasi-convert-string): Suppress
 	byte-compile warnings; `save-excursion' defeated by `set-buffer'.
 
diff --git a/lisp/riece-keepalive.el b/lisp/riece-keepalive.el
index 955b6ab..c0c25a6 100644
--- a/lisp/riece-keepalive.el
+++ b/lisp/riece-keepalive.el
@@ -53,8 +53,7 @@
 	  (riece-run-at-time
 	   riece-keepalive-ping-repeat riece-keepalive-ping-repeat
 	   (lambda (buffer)
-	     (save-excursion
-	       (set-buffer buffer)
+	     (with-current-buffer buffer
 	       (riece-send-string "PING riece-keepalive\r\n")))
 	   (current-buffer)))))