- (aref ideograph-radical-chars-vector radical))))
- (aset ideograph-radical-chars-vector radical
- (cons char ret))))
- (setq i (1+ i)))
- (setq i #x100000)
- (while (<= i #x10FFFF)
- (setq char (decode-char 'ucs i))
- (when (and (or (null (setq script (get-char-attribute char 'script)))
- (memq 'Ideograph script))
- (setq radical (char-ideographic-radical char)))
- (if (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 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))
- (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 (* 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)
- (setq j 33)
- (while (< j 127)
- (setq char (make-char (car charsets) i j))
- (if (and (or (null (setq script (get-char-attribute char 'script)))
- (memq 'Ideograph script))
- (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 j (1+ j)))
- (setq i (1+ i)))
- (setq charsets (cdr charsets)))
- ))