From 26d4545eb993d2d193e73d2ba1c89b568ef15fc4 Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 14 Jul 2002 04:28:30 +0000 Subject: [PATCH] (insert-ideograph-radical-char-data): Ignore non-Unicode UCS code-points. --- lisp/utf-2000/ideograph-util.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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))))) -- 1.7.10.4