From: tomo <tomo>
Date: Fri, 16 Jun 2000 02:25:15 +0000 (+0000)
Subject: (update-ideograph-radical-table): Don't refer 50101 or greater code
X-Git-Tag: r21-2-34-utf-2000-0_16-1~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=74bd826e9d8fc122fcdd941966911990a6359757;p=chise%2Fxemacs-chise.git

(update-ideograph-radical-table): Don't refer 50101 or greater code
range of coded-charset `ideograph-daikanwa'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index e608e73..fc6e52e 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -103,18 +103,15 @@
 		  (cons char ret))))
       (setq i (1+ i)))
     (setq i 0)
-    (while (< i 256)
-      (setq j 0)
-      (while (< j 256)
-	(setq char (make-char 'ideograph-daikanwa i j))
-	(if (and (setq radical (char-ideograph-radical char))
-		 (not
-		  (memq char
-			(setq ret
-			      (aref ideograph-radical-chars-vector radical)))))
-	    (aset ideograph-radical-chars-vector radical
-		  (cons char ret)))
-	(setq j (1+ j)))
+    (while (< i 50101)
+      (setq char (decode-char 'ideograph-daikanwa i))
+      (if (and (setq radical (char-ideograph-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)