update.
[chise/ids.git] / ids-dump.el
index 3372f10..678d6aa 100644 (file)
 
 (defun ids-dump-range (file path func &rest args)
   (with-temp-buffer
-    (let* ((coding-system-for-write 'utf-8))
+    (let* ((coding-system-for-write 'utf-8-mcs-er))
       (if (file-directory-p path)
          (setq path (expand-file-name file path)))
-      (insert ";; -*- coding: utf-8 -*-\n")
+      (insert ";; -*- coding: utf-8-mcs-er -*-\n")
       (apply func args)
       (write-region (point-min)(point-max) path))))