From: TAKAHASHI Kaoru <kaoru@kaisei.org>
Date: Sun, 12 Sep 2010 13:12:35 +0000 (+0900)
Subject: * riece-kakasi.el (riece-kakasi-convert-string): Suppress
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=c5b3e5f95254ee082408ed6c4a1b340b50300371

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e84526..0f1ac0e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* riece-kakasi.el (riece-kakasi-convert-string): Suppress
+	byte-compile warnings; `save-excursion' defeated by `set-buffer'.
+
 	* riece-ignore.el (riece-ignore-message-filter): Suppress
 	byte-compile warnings; `save-excursion' defeated by `set-buffer'.
 
diff --git a/lisp/riece-kakasi.el b/lisp/riece-kakasi.el
index e285ca7..f51eb59 100644
--- a/lisp/riece-kakasi.el
+++ b/lisp/riece-kakasi.el
@@ -37,8 +37,7 @@
 
 (defun riece-kakasi-convert-string (string)
   (process-send-string riece-kakasi-process (concat string "\n"))
-  (save-excursion
-    (set-buffer (process-buffer riece-kakasi-process))
+  (with-current-buffer (process-buffer riece-kakasi-process)
     (while (progn
 	     (goto-char (point-min))
 	     (not (search-forward "\n" nil t)))