(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 (file)
--- 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)