From f6aa0d8a112032359a4feef41686ece62ed74e1f Mon Sep 17 00:00:00 2001 From: TAKAHASHI Kaoru Date: Sun, 12 Sep 2010 22:13:18 +0900 Subject: [PATCH] * riece-keepalive.el (riece-keepalive-after-login-hook): Suppress byte-compile warnings; `save-excursion' defeated by `set-buffer'. --- lisp/ChangeLog | 3 +++ lisp/riece-keepalive.el | 3 +-- 2 files changed, 4 insertions(+), 2 deletions(-) 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 + * 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))))) -- 2.25.1