X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fideograph-util.el;h=7044aa9403b7753f26b81123a8faed93e171db45;hb=26d4545eb993d2d193e73d2ba1c89b568ef15fc4;hp=1bb7c380f67284020375eff18ea2e3a810544094;hpb=0b55077ad770eb0f4802534258a7db44edf292ee;p=chise%2Fxemacs-chise.git-

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