update.

[chise/xemacs-chise.git-] / lisp / utf-2000 / ideograph-util.el

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index a03cf12..726e9bd 100644 (file)
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -134,6 +134,17 @@
            (aset ideograph-radical-chars-vector radical
                  (cons char ret))))
       (setq i (1+ i)))
+    (setq i 1)
+    (while (<= i 66773)
+      (setq char (decode-char 'ideograph-gt i))
+      (if (and (setq radical (char-ideographic-radical char))
+              (not
+               (memq char
+                     (setq ret
+                           (aref ideograph-radical-chars-vector radical)))))
+         (aset ideograph-radical-chars-vector radical
+               (cons char ret)))
+      (setq i (1+ i)))
     (setq i 0)
     (while (< i 50101)
       (setq char (decode-char 'ideograph-daikanwa i))