From 6a8868a6b55131aefb5d58a4829f1441c6f98eeb Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 8 Nov 2003 07:55:43 +0000
Subject: [PATCH] (write-char-range-data-to-file): Insert coding: magic
 cookie.

---
 lisp/utf-2000/char-db-util.el |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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))))
 
-- 
1.7.10.4