From: tomo Date: Wed, 23 May 2001 06:03:04 +0000 (+0000) Subject: (ideograph-radical-strokes-vector): Modify for major characters. X-Git-Tag: r21-2-38-utf-2000-0_17-1~778 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d53cd3930a23457840c269ad63e150e5ee6a9169;p=chise%2Fxemacs-chise.git- (ideograph-radical-strokes-vector): Modify for major characters. (char-ideographic-strokes): Prefer `daikanwa-strokes' than `ideographic-strokes'. --- diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 7c1a462..1fdf8ef 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -51,27 +51,27 @@ 3 4 4 4 3 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 3 4 4 4 4 - 4 4 4 4 4 5 5 5 5 5 + 4 4 4 4 3 5 4 5 5 5 ;; 100 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 6 6 6 6 6 6 6 6 6 6 6 6 - 6 6 6 6 6 6 6 6 6 6 + 4 6 6 6 6 6 6 6 6 6 4 6 6 6 6 6 6 7 7 7 7 7 7 7 7 7 7 7 7 7 - 7 7 4 3 7 7 7 8 8 8 - 8 8 8 8 8 8 9 9 9 9 - 9 9 9 9 9 9 9 10 10 10 + 7 7 4 3 7 7 7 8 7 8 + 3 8 8 8 8 8 9 9 9 9 + 9 9 9 9 8 9 9 10 10 10 10 10 10 10 10 11 11 11 11 11 ;; 200 11 12 12 12 12 13 13 13 13 14 14 15 16 16 17]) (defun char-ideographic-strokes (char) - (or (get-char-attribute char 'ideographic-strokes) + (or (get-char-attribute char 'daikanwa-strokes) + (get-char-attribute char 'ideographic-strokes) (let ((strokes - (or (get-char-attribute char 'daikanwa-strokes) - (get-char-attribute char 'kangxi-strokes) + (or (get-char-attribute char 'kangxi-strokes) (get-char-attribute char 'japanese-strokes) (get-char-attribute char 'korean-strokes) (let ((r (char-ideographic-radical char))