From eacc3b3f2fbd987ac8e57958751941c34f2f63b4 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 6 Apr 2004 16:41:43 +0000 Subject: [PATCH] (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'. --- lisp/utf-2000/char-db-util.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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)))) -- 1.7.10.4