X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-mcat.el;h=f20f68b59ea50f0a4677769d4ef3c2aaf3c5ed46;hp=1cccd7e3e6ccc27212ea16be48bab141d48d238b;hb=6eb9cb58675899ce404b7dbd08624865bc66625a;hpb=1b7833a4f7d31dd541ad8b73316494cca4ebbd0c

diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index 1cccd7e..f20f68b 100644
--- 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