From 2029cc4a62ced88b0bf2504a5eabe32cd040fe14 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 5 Sep 2006 12:51:27 +0000 Subject: [PATCH] (shuowen-radicals): Add 6 radicals. --- lisp/utf-2000/char-db-util.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 9a51977..6248115 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -73,7 +73,8 @@ (aref ideographic-radicals number)) (defconst shuowen-radicals - [?一 ?上 ?示 ?三 ?王 ?玉 ?玨 ?气 ?士 ?丨 ?屮 ?艸 ?茻]) + [?一 ?上 ?示 ?三 ?王 ?玉 ?玨 ?气 ?士 ?丨 + ?屮 ?艸 ?茻 ?小 ?八 ?釆 ?牛 ?告 ?口]) (defun shuowen-radical (number) (aref shuowen-radicals (1- number))) -- 1.7.10.4