* 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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 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'.
 
        * 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 (file)
--- 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"))
 
 (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)))
     (while (progn
             (goto-char (point-min))
             (not (search-forward "\n" nil t)))