From: tomo <tomo>
Date: Fri, 6 Jul 2001 19:18:44 +0000 (+0000)
Subject: (update-ideograph-radical-table): Scan `ideograph-gt'.
X-Git-Tag: r21-2-38-utf-2000-0_17-1~405
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=252abbf213b215417079a0a64a5cf49dbfbd32b1;p=chise%2Fxemacs-chise.git-

(update-ideograph-radical-table): Scan `ideograph-gt'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index a03cf12..726e9bd 100644
--- 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))