From: tomo <tomo>
Date: Tue, 6 Apr 2004 16:43:17 +0000 (+0000)
Subject: (write-ideograph-radical-char-data): Use `char-db-file-coding-system'.
X-Git-Tag: r21-4-14-chise-0_21-25-cdb-er^2~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=019e5e8851884129784edefde4cb76f40286822f;p=chise%2Fxemacs-chise.git.1

(write-ideograph-radical-char-data): Use `char-db-file-coding-system'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 042c87b..44c5f04 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -558,7 +558,8 @@
 
 (defun write-ideograph-radical-char-data (radical file)
   (if (file-directory-p file)
-      (let ((name (get-char-attribute (int-char (+ #x2EFF radical)) 'name)))
+      (let ((name (char-feature (decode-char 'ucs (+ #x2EFF radical))
+				'name)))
 	(if (string-match "KANGXI RADICAL " name)
 	    (setq name (capitalize (substring name (match-end 0)))))
 	(setq name (mapconcat (lambda (char)
@@ -570,11 +571,11 @@
 	       (format "Ideograph-R%03d-%s.el" radical name)
 	       file))))
   (with-temp-buffer
-    (insert ";; -*- coding: utf-8-mcs -*-\n")
+    (insert (format ";; -*- coding: %s -*-\n"
+		    char-db-file-coding-system))
     (insert-ideograph-radical-char-data radical)
-    (let ((coding-system-for-write 'utf-8-mcs))
-      (write-region (point-min)(point-max) file)
-      )))
+    (let ((coding-system-for-write char-db-file-coding-system))
+      (write-region (point-min)(point-max) file))))
 
 (defun ideographic-structure= (char1 char2)
   (if (char-ref-p char1)