(char-db-dump-ruimoku6): Use `char-db-file-coding-system'.
[chise/tomoyo-tools.git] / char-db-dump.el
index b13b32a..f3aec36 100644 (file)
 ;;;###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))