* riece-ignore.el (riece-ignore-message-filter): Suppress

byte-compile warnings; `save-excursion' defeated by `set-buffer'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c8b7fd0..2e84526 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-ignore.el (riece-ignore-message-filter): Suppress
+       byte-compile warnings; `save-excursion' defeated by `set-buffer'.
+

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

diff --git a/lisp/riece-ignore.el b/lisp/riece-ignore.el
index 4a7af89..1bff32a 100644 (file)
--- a/lisp/riece-ignore.el
+++ b/lisp/riece-ignore.el
@@ -112,8 +112,7 @@ Otherwise, they are not removed from IRC buffers, but are hidden with
                                          riece-ignore-buffer-name
                                          'riece-dialogue-mode))
                (riece-dialogue-mode)))
                                          riece-ignore-buffer-name
                                          'riece-dialogue-mode))
                (riece-dialogue-mode)))

-           (save-excursion
-             (set-buffer riece-ignore-buffer)
+           (with-current-buffer riece-ignore-buffer

              (goto-char (point-max))
              (let ((inhibit-read-only t)
                    buffer-read-only)
              (goto-char (point-max))
              (let ((inhibit-read-only t)
                    buffer-read-only)