From: tomo <tomo>
Date: Mon, 31 May 2010 09:11:35 +0000 (+0000)
Subject: - Don't require `alist'.
X-Git-Tag: chise-base-0_25^20~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3af34a3013ecdfb5371438731b3deb0fe29929cf;p=chise%2Fxemacs-chise.git.1

- Don't require `alist'.
- Require `ideograph-subr'.
(ideographic-radicals): Moved to ideograph-subr.el.
(ideographic-radical): Ditto.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 7538f47..e1ac1ac 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -25,8 +25,8 @@
 
 ;;; Code:
 
-(require 'alist)
 (require 'chise-subr)
+(require 'ideograph-subr)
 
 (defconst unidata-normative-category-alist
   '(("Lu" letter	uppercase)
@@ -63,19 +63,6 @@
     ("So" symbol	other)
     ))
 
-(defconst ideographic-radicals
-  (let ((v (make-vector 215 nil))
-	(i 1))
-    (while (< i 215)
-      (aset v i (decode-char '=ucs (+ #x2EFF i)))
-      (setq i (1+ i)))
-    v))
-
-;;;###autoload
-(defun ideographic-radical (number)
-  "Return character corresponding with Kangxi-radical number."
-  (aref ideographic-radicals number))
-
 (defconst shuowen-radicals
   [?一 ?上 ?示 ?三 ?王 ?玉 ?玨 ?气 ?士 ?丨 ; 010
    ?屮 ?艸 ?蓐 ?茻 ?小 ?八 ?釆 ?半 ?牛 ?犛 ; 020