From: 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))))