X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fideograph-util.el;h=7c1a46212d9ac5831d4dc643cdf1134af88463a1;hb=b150fc7578f56542ad6e157fd4c2923ed17bfd78;hp=9bddea0fd47430ed6e356530aac7fcefabf80759;hpb=41959750aedad18859ac70645f5bc3768a932e52;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 9bddea0..7c1a462 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -50,14 +50,14 @@
     3  3  3  3  3  3  3  3  3  3
     3  4  4  4  3  4  4  4  4  4
     4  4  4  4  4  4  4  4  4  4
-    4  4  4  4  4  4  4  4  4  4
+    4  4  4  4  4  3  4  4  4  4
     4  4  4  4  4  5  5  5  5  5
     ;; 100
     5  5  5  5  5  5  5  5  5  5
     5  5  5  5  5  5  5  5  6  6
     6  6  6  6  6  6  6  6  6  6
     6  6  6  6  6  6  6  6  6  6
-    6  6  6  6  6  6  6  7  7  7
+    4  6  6  6  6  6  6  7  7  7
     7  7  7  7  7  7  7  7  7  7
     7  7  4  3  7  7  7  8  8  8
     8  8  8  8  8  8  9  9  9  9
@@ -145,6 +145,17 @@
 	  (aset ideograph-radical-chars-vector radical
 		(cons char ret)))
       (setq i (1+ i)))
+    (setq i 0)
+    (while (< i (* 94 60 22))
+      (setq char (decode-char 'mojikyo 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)))
     (while charsets
       (setq i 33)
       (while (< i 127)