From 5037af2970f92a02662c9dc3bc4986315daa372d Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 25 Feb 2003 15:52:54 +0000 Subject: [PATCH] (insert-ideograph-radical-char-data): Fix problem when `char-db-ignored-attributes' is specified. --- lisp/utf-2000/ideograph-util.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index ade3c81..73fcba8 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -266,7 +266,13 @@ ccss (sort ccss #'char-attribute-name<)) (aset ideograph-radical-chars-vector radical chars) (dolist (char chars) - (insert-char-data char nil attributes 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) (if (file-directory-p file) -- 1.7.10.4