From 8c75dbedf989ad47dd6b7ad7dc4103e6b5461bf1 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 24 Dec 2002 18:06:46 +0000 Subject: [PATCH] (ideographic-radicals): Use instead of U+5902; use `decode-char' instead of `int-char'. --- lisp/utf-2000/char-db-util.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 1.7.10.4