From 59905a9071e57e60d2ab2d1852e0eca3f2d01296 Mon Sep 17 00:00:00 2001 From: TAKAHASHI Kaoru Date: Sun, 12 Sep 2010 22:02:43 +0900 Subject: [PATCH 1/1] * riece-async.el (riece-async-open-network-stream): Suppress byte-compile warnings; `save-excursion' defeated by `set-buffer'. --- lisp/ChangeLog | 5 +++++ lisp/riece-async.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6331f30..8cac2c5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-09-12 TAKAHASHI Kaoru + + * riece-async.el (riece-async-open-network-stream): Suppress + byte-compile warnings; `save-excursion' defeated by `set-buffer'. + 2010-09-04 TAKAHASHI Kaoru * riece-mcat.el (riece-mcat-update): Suppress byte-compile diff --git a/lisp/riece-async.el b/lisp/riece-async.el index 56403f8..5d143c4 100644 --- a/lisp/riece-async.el +++ b/lisp/riece-async.el @@ -76,8 +76,7 @@ assumed that the file is in the same directory of this file.") riece-data-directory) riece-async-server-program-arguments))) (if buffer - (save-excursion - (set-buffer (process-buffer process)) + (with-current-buffer (process-buffer process) (while (and (eq (process-status process) 'run) (progn (goto-char (point-min)) -- 2.25.1