* riece-mcat.el (riece-mcat-update): Suppress

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0709eff..6331f30 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-04  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * riece-mcat.el (riece-mcat-update): Suppress byte-compile
+       warnings; `save-excursion' defeated by `set-buffer'.
+
        * riece-shrink-buffer.el (riece-shrink-buffer): Suppress
        byte-compile warnings; `save-excursion' defeated by `set-buffer'.
 

diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index 1cccd7e..f20f68b 100644 (file)
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -76,8 +76,7 @@
   "Update MCAT-FILE."
   (let ((pp-escape-newlines t)
        alist)
-    (save-excursion
-      (set-buffer (find-file-noselect mcat-file))
+    (with-current-buffer (find-file-noselect mcat-file)
       (goto-char (point-min))
       (if (re-search-forward (concat "^\\s-*(\\(defvar\\|defconst\\)\\s-+"
                                     (regexp-quote (symbol-name