From 252abbf213b215417079a0a64a5cf49dbfbd32b1 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 6 Jul 2001 19:18:44 +0000 Subject: [PATCH] (update-ideograph-radical-table): Scan `ideograph-gt'. --- lisp/utf-2000/ideograph-util.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index a03cf12..726e9bd 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -134,6 +134,17 @@ (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)) -- 1.7.10.4