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