(char-db-file-coding-system): New variable; use `utf-8-mcs-er' as
authortomo <tomo>
Tue, 6 Apr 2004 16:41:43 +0000 (16:41 +0000)
committertomo <tomo>
Tue, 6 Apr 2004 16:41:43 +0000 (16:41 +0000)
initial value.
(write-char-range-data-to-file): Use `char-db-file-coding-system'.

lisp/utf-2000/char-db-util.el

index a989d1c..94beb34 100644 (file)
@@ -69,6 +69,8 @@
       (setq i (1+ i)))
     v))
 
+(defvar char-db-file-coding-system 'utf-8-mcs-er)
+
 (defvar char-db-feature-domains
   '(ucs daikanwa cns gt jis jis/alt jis/a jis/b
        jis-x0213 misc unknown))
 
 (defun write-char-range-data-to-file (min max file
                                          &optional script excluded-script)
-  (let ((coding-system-for-write 'utf-8-mcs))
+  (let ((coding-system-for-write char-db-file-coding-system))
     (with-temp-buffer
-      (insert ";; -*- coding: utf-8-mcs -*-\n")
+      (insert (format ";; -*- coding: %s -*-\n"
+                     char-db-file-coding-system))
       (insert-char-range-data min max script excluded-script)
       (write-region (point-min)(point-max) file))))