From: tomo <tomo>
Date: Fri, 16 Jun 2000 12:21:18 +0000 (+0000)
Subject: (insert-ideograph-radical-char-data): Use `insert-char-data' with new
X-Git-Tag: r21-2-34-utf-2000-0_16-1~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e344277e13cd8813592afc6b0bfb89474f0cbb0;p=chise%2Fxemacs-chise.git.1

(insert-ideograph-radical-char-data): Use `insert-char-data' with new
optional arguments `attributes' and `ccs-attributes'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index fc6e52e..87e2e21 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -191,9 +191,12 @@
 (defun insert-ideograph-radical-char-data (radical)
   (let ((chars
 	 (sort (copy-list (aref ideograph-radical-chars-vector radical))
-	       (function ideograph-char<))))
+	       (function ideograph-char<)))
+	(attributes (sort (char-attribute-list) #'char-attribute-name<))
+	(ccs (sort (charset-list) #'char-attribute-name<)))
+    (aset ideograph-radical-chars-vector radical chars)
     (while chars
-      (insert-char-data (car chars))
+      (insert-char-data (car chars) nil attributes ccs)
       (setq chars (cdr chars)))))
 
 (defun write-ideograph-radical-char-data (radical file)