From: tomo <tomo>
Date: Tue, 5 Sep 2006 12:51:27 +0000 (+0000)
Subject: (shuowen-radicals): Add 6 radicals.
X-Git-Tag: r21-4-19-chise-0_23-2^20~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2029cc4a62ced88b0bf2504a5eabe32cd040fe14;p=chise%2Fxemacs-chise.git.1

(shuowen-radicals): Add 6 radicals.
---

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)))