X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Ftomoyo-tools.git;a=blobdiff_plain;f=char-db-dump.el;h=f3aec364370f590eb43bf4b994d7db1a12940701;hp=b13b32ac133748a89454a633afe34d6a0375e179;hb=2adb1733bd4279033b12c8388ca46d5604ce5040;hpb=b30b83f8ad2152044affbba336a27c1574c5905a

diff --git a/char-db-dump.el b/char-db-dump.el
index b13b32a..f3aec36 100644
--- a/char-db-dump.el
+++ b/char-db-dump.el
@@ -140,11 +140,12 @@
 ;;;###autoload
 (defun char-db-dump-ruimoku6 (directory)
   (interactive "DDump ruimoku6 : ")
-  (let ((coding-system-for-write 'utf-8-mcs)
+  (let ((coding-system-for-write char-db-file-coding-system)
 	(code #xE000)
 	chr)
     (with-temp-buffer
-      (insert ";; -*- coding: utf-8-mcs -*-\n")
+      (insert (format ";; -*- coding: %s -*-\n"
+		      char-db-file-coding-system))
       (while (<= code #xE8FF)
 	(when (setq chr (decode-char '=ruimoku-v6 code 'defined-only))
 	  (insert-char-data chr))