From: tomo <tomo>
Date: Sun, 14 Jul 2002 11:05:39 +0000 (+0000)
Subject: (insert-ideograph-radical-char-data): Ignore non-Unicode UCS
X-Git-Tag: r21-2-44-utf-2000-0_19-er2-n13~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=fb4a48b6b5a5387711cd37ab69dd0cf6395490d2;p=chise%2Fxemacs-chise.git-

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