From 8bf8a6dd5618df37874dc056a7486600ddfe15d8 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 13 Feb 2004 20:38:48 +0000
Subject: [PATCH] (insert-ideograph-radical-char-data): Modify for
 `insert-char-data'.

---
 lisp/utf-2000/ideograph-util.el |   31 +++++++++++++++++++------------
 1 file changed, 19 insertions(+), 12 deletions(-)

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 6676fa6..2c38d12 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -331,23 +331,30 @@
 	 (sort (copy-list (aref ideograph-radical-chars-vector radical))
 	       (lambda (a b)
 		 (ideograph-char< a b radical))))
-	attributes ccss)
+	attributes ; ccss
+	)
     (dolist (name (char-attribute-list))
       (unless (memq name char-db-ignored-attributes)
-	(if (find-charset name)
-	    (push name ccss)
-	  (push name attributes))))
+        ;; (if (find-charset name)
+        ;;     (push name ccss)
+	(push name attributes)
+	;; )
+	))
     (setq attributes (sort attributes #'char-attribute-name<)
-	  ccss (sort ccss #'char-attribute-name<))
+	  ;; ccss (sort ccss #'char-attribute-name<)
+	  )
     (aset ideograph-radical-chars-vector radical chars)
     (dolist (char chars)
-      (when (or (not (some (lambda (atr)
-			     (get-char-attribute char atr))
-			   char-db-ignored-attributes))
-		(some (lambda (ccs)
-			(encode-char char ccs 'defined-only))
-		      ccss))
-	(insert-char-data char nil attributes ccss)))))
+      (when ;;(or
+	  (not (some (lambda (atr)
+		       (get-char-attribute char atr))
+		     char-db-ignored-attributes))
+	;; (some (lambda (ccs)
+	;;         (encode-char char ccs 'defined-only))
+	;;       ccss)
+	;;)
+	(insert-char-data char nil attributes ;ccss
+			  )))))
 
 (defun write-ideograph-radical-char-data (radical file)
   (if (file-directory-p file)
-- 
1.7.10.4