From: tomo Date: Sun, 14 Jul 2002 04:28:30 +0000 (+0000) Subject: (insert-ideograph-radical-char-data): Ignore non-Unicode UCS X-Git-Tag: r21-2-44-utf-2000-0_18-m13~3 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=26d4545eb993d2d193e73d2ba1c89b568ef15fc4;p=chise%2Fxemacs-chise.git.1 (insert-ideograph-radical-char-data): Ignore non-Unicode UCS code-points. --- diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 1bb7c38..7044aa9 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -267,7 +267,11 @@ (aset ideograph-radical-chars-vector radical chars) (dolist (char chars) (when (some (lambda (ccs) - (encode-char char ccs)) + (let ((code (encode-char char ccs))) + (and code + ;;(not (memq ccs char-db-ignored-attributes)) + ;;(or (not (memq ccs '(ucs)) + (and (<= 0 code)(<= code #x10FFFF))))) ccss) (insert-char-data char nil attributes ccss)))))