(insert-ideograph-radical-char-data): Modify for `insert-char-data'.

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 6676fa6..2c38d12 100644 (file)
--- 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)