summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
db90980)
- Require `ideograph-subr'.
(ideographic-radicals): Moved to ideograph-subr.el.
(ideographic-radical): Ditto.
+(require 'ideograph-subr)
(defconst unidata-normative-category-alist
'(("Lu" letter uppercase)
(defconst unidata-normative-category-alist
'(("Lu" letter uppercase)
-(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))
-
(defconst shuowen-radicals
[?一 ?上 ?示 ?三 ?王 ?玉 ?玨 ?气 ?士 ?丨 ; 010
?屮 ?艸 ?蓐 ?茻 ?小 ?八 ?釆 ?半 ?牛 ?犛 ; 020
(defconst shuowen-radicals
[?一 ?上 ?示 ?三 ?王 ?玉 ?玨 ?气 ?士 ?丨 ; 010
?屮 ?艸 ?蓐 ?茻 ?小 ?八 ?釆 ?半 ?牛 ?犛 ; 020