From: tomo <tomo>
Date: Tue, 6 Apr 2004 16:41:43 +0000 (+0000)
Subject: (char-db-file-coding-system): New variable; use `utf-8-mcs-er' as
X-Git-Tag: r21-4-14-chise-0_21-25-cdb-er^2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eacc3b3f2fbd987ac8e57958751941c34f2f63b4;p=chise%2Fxemacs-chise.git

(char-db-file-coding-system): New variable; use `utf-8-mcs-er' as
initial value.
(write-char-range-data-to-file): Use `char-db-file-coding-system'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index a989d1c..94beb34 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -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))
@@ -1157,9 +1159,10 @@
 
 (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))))