From c3c9f595127bdc71757ed46c8d4024dddce19f71 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 26 Feb 2003 05:43:14 +0000 Subject: [PATCH] (insert-ideograph-radical-char-data): Fix problem when `char-db-ignored-attributes' is specified. --- lisp/utf-2000/ideograph-util.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 39590bd..73fcba8 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,13 +266,12 @@ 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) + (when (or (not (some (lambda (atr) + (get-char-attribute char atr)) + char-db-ignored-attributes)) + (some (lambda (ccs) + (encode-char char ccs 'defined-only)) + ccss)) (insert-char-data char nil attributes ccss))))) (defun write-ideograph-radical-char-data (radical file) -- 1.7.10.4