From 3af34a3013ecdfb5371438731b3deb0fe29929cf Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 31 May 2010 09:11:35 +0000
Subject: [PATCH] - Don't require `alist'. - Require `ideograph-subr'.
 (ideographic-radicals): Moved to ideograph-subr.el.
 (ideographic-radical): Ditto.

---
 lisp/utf-2000/char-db-util.el |   15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

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