(write-ideograph-radical-char-data): Insert coding: magic cookie.

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index c56844a..f429f77 100644 (file)
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -332,8 +332,9 @@
               (format "Ideograph-R%03d-%s.el" radical name)
               file))))
   (with-temp-buffer
               (format "Ideograph-R%03d-%s.el" radical name)
               file))))
   (with-temp-buffer

+    (insert ";; -*- coding: utf-8-mcs -*-\n")

     (insert-ideograph-radical-char-data radical)
     (insert-ideograph-radical-char-data radical)

-    (let ((coding-system-for-write 'utf-8))
+    (let ((coding-system-for-write 'utf-8-mcs))

       (write-region (point-min)(point-max) file)
       )))
 
       (write-region (point-min)(point-max) file)
       )))