Sync up with r21-2-44-utf-2000-0_19-eten-n14.
[chise/xemacs-chise.git-] / lisp / utf-2000 / ideograph-util.el
index 423321e..7044aa9 100644 (file)
      '(> > > >))))
 
 (defun insert-ideograph-radical-char-data (radical)
-  (let* ((ideographic-radical radical)
-        (chars
-         (sort (copy-list (aref ideograph-radical-chars-vector radical))
-               (function ideograph-char<)))
-        attributes ccss)
+  (let ((chars
+        (sort (copy-list (aref ideograph-radical-chars-vector radical))
+              (lambda (a b)
+                (ideograph-char< a b radical))))
+       attributes ccss)
     (dolist (name (char-attribute-list))
       (unless (memq name char-db-ignored-attributes)
        (if (find-charset name)
     (aset ideograph-radical-chars-vector radical chars)
     (dolist (char chars)
       (when (some (lambda (ccs)
-                   (encode-char char ccs))
+                   (let ((code (encode-char char ccs)))
+                     (and code
+                          ;;(not (memq ccs char-db-ignored-attributes))
+                          ;;(or (not (memq ccs '(ucs))
+                          (and (<= 0 code)(<= code #x10FFFF)))))
                  ccss)
        (insert-char-data char nil attributes ccss)))))