From: tomo <tomo>
Date: Tue, 20 Nov 2001 17:22:39 +0000 (+0000)
Subject: (insert-ideograph-radical-char-data): Now return value of
X-Git-Tag: no-et-1~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2e7f73962359cd1b86135a7f732698f9f119649e;p=chise%2Fxemacs-chise.git-

(insert-ideograph-radical-char-data): Now return value of
`char-attribute-list' includes names of CCS-attributes.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 562485b..4612b30 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -205,8 +205,13 @@
   (let ((chars
 	 (sort (copy-list (aref ideograph-radical-chars-vector radical))
 	       (function ideograph-char<)))
-	(attributes (sort (char-attribute-list) #'char-attribute-name<))
-	(ccs (sort (charset-list) #'char-attribute-name<)))
+	attributes ccs)
+    (dolist (name (char-attribute-list))
+      (if (find-charset name)
+	  (push name ccs)
+	(push name attributes)))
+    (setq attributes (sort attributes #'char-attribute-name<)
+	  ccs (sort ccs #'char-attribute-name<))
     (aset ideograph-radical-chars-vector radical chars)
     (while chars
       (insert-char-data (car chars) nil attributes ccs)