-(defconst ideographic-radicals
- (let ((v (make-vector 215 nil))
- (i 1))
- (while (< i 215)
- (aset v i (decode-char '=ucs (+ #x2EFF i)))
- (setq i (1+ i)))
- v))
-
-;;;###autoload
-(defun ideographic-radical (number)
- "Return character corresponding with Kangxi-radical number."
- (aref ideographic-radicals number))
-