From a6cc2ca3f0d227bbdd7f17b9ad73585e2ae01876 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 24 Feb 2003 12:24:35 +0000 Subject: [PATCH] (insert-ideograph-radical-char-data): Don't check about CCS code-range. --- lisp/utf-2000/ideograph-util.el | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 39590bd..ade3c81 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -1,6 +1,6 @@ ;;; ideograph-util.el --- Ideographic Character Database utility -;; Copyright (C) 1999,2000,2001,2002 MORIOKA Tomohiko. +;; Copyright (C) 1999,2000,2001,2002,2003 MORIOKA Tomohiko. ;; Author: MORIOKA Tomohiko ;; Keywords: UTF-2000, ISO/IEC 10646, Unicode, UCS-4, MULE. @@ -266,14 +266,7 @@ ccss (sort ccss #'char-attribute-name<)) (aset ideograph-radical-chars-vector radical chars) (dolist (char chars) - (when (some (lambda (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))))) + (insert-char-data char nil attributes ccss)))) (defun write-ideograph-radical-char-data (radical file) (if (file-directory-p file) -- 1.7.10.4