From: tomo <tomo>
Date: Sat, 8 Nov 2003 07:55:43 +0000 (+0000)
Subject: (write-char-range-data-to-file): Insert coding: magic cookie.
X-Git-Tag: r21-4-14-chise-0_21-2^2~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6a8868a6b55131aefb5d58a4829f1441c6f98eeb;p=chise%2Fxemacs-chise.git-

(write-char-range-data-to-file): Insert coding: magic cookie.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index e89bfa5..df81a7a 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -1090,8 +1090,9 @@
 
 (defun write-char-range-data-to-file (min max file
 					  &optional script excluded-script)
-  (let ((coding-system-for-write 'utf-8))
+  (let ((coding-system-for-write 'utf-8-mcs))
     (with-temp-buffer
+      (insert ";; -*- coding: utf-8-mcs -*-\n")
       (insert-char-range-data min max script excluded-script)
       (write-region (point-min)(point-max) file))))