From: tomo Date: Thu, 28 Sep 2000 07:57:34 +0000 (+0000) Subject: (ideograph-radical-strokes-vector): Change R085 to 3 from 4; change X-Git-Tag: r21-2-35-utf-2000-0_17-1~2 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5a98616f90a5c4f53c1863f0762673ab5ef57b63;p=chise%2Fxemacs-chise.git (ideograph-radical-strokes-vector): Change R085 to 3 from 4; change R140 to 4 from 3. (update-ideograph-radical-table): Add `mojikyo' characters which are not included in `ideograph-daikanwa'. --- diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 9bddea0..7c1a462 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -50,14 +50,14 @@ 3 3 3 3 3 3 3 3 3 3 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 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 ;; 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 - 6 6 6 6 6 6 6 7 7 7 + 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 @@ -145,6 +145,17 @@ (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)