From: tomo <tomo>
Date: Wed, 10 Apr 2002 04:41:45 +0000 (+0000)
Subject: (insert-ideograph-radical-char-data): Refer
X-Git-Tag: r21-2-44-0_18-m7~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b2e1fbe0a6729cb6987c9cb8dc1857494f0a0aea;p=chise%2Fxemacs-chise.git

(insert-ideograph-radical-char-data): Refer
`char-db-ignored-attributes'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 097d33f..a334e2f 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -205,17 +205,20 @@
   (let ((chars
 	 (sort (copy-list (aref ideograph-radical-chars-vector radical))
 	       (function ideograph-char<)))
-	attributes ccs)
+	attributes ccss)
     (dolist (name (char-attribute-list))
-      (if (find-charset name)
-	  (push name ccs)
-	(push name attributes)))
+      (unless (memq name char-db-ignored-attributes)
+	(if (find-charset name)
+	    (push name ccss)
+	  (push name attributes))))
     (setq attributes (sort attributes #'char-attribute-name<)
-	  ccs (sort ccs #'char-attribute-name<))
+	  ccss (sort ccss #'char-attribute-name<))
     (aset ideograph-radical-chars-vector radical chars)
-    (while chars
-      (insert-char-data (car chars) nil attributes ccs)
-      (setq chars (cdr chars)))))
+    (dolist (char chars)
+      (when (some (lambda (ccs)
+		    (encode-char char ccs))
+		  ccss)
+	(insert-char-data char nil attributes ccss)))))
 
 (defun write-ideograph-radical-char-data (radical file)
   (if (file-directory-p file)