From: tomo <tomo>
Date: Tue, 24 Dec 2002 18:06:46 +0000 (+0000)
Subject: (ideographic-radicals): Use <KANGXI RADICAL GO> instead of U+5902; use
X-Git-Tag: r21-4-10-utf-2000-0_19-5~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8c75dbedf989ad47dd6b7ad7dc4103e6b5461bf1;p=chise%2Fxemacs-chise.git-

(ideographic-radicals): Use <KANGXI RADICAL GO> instead of U+5902; use
`decode-char' instead of `int-char'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index fbebac8..edfe9f5 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -65,10 +65,10 @@
   (let ((v (make-vector 215 nil))
 	(i 1))
     (while (< i 215)
-      (aset v i (int-char (+ #x2EFF i)))
+      (aset v i (decode-char 'ucs (+ #x2EFF i)))
       (setq i (1+ i)))
-    (unless (charset-iso-final-char (car (split-char (aref v 34))))
-      (aset v 34 (make-char 'chinese-gb2312 #x62 #x3A)))
+    ;; (unless (charset-iso-final-char (car (split-char (aref v 34))))
+    ;;   (aset v 34 (make-char 'chinese-gb2312 #x62 #x3A)))
     v))
 
 (defvar char-db-ignored-attributes nil)