From b2e1fbe0a6729cb6987c9cb8dc1857494f0a0aea Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 10 Apr 2002 04:41:45 +0000 Subject: [PATCH] (insert-ideograph-radical-char-data): Refer `char-db-ignored-attributes'. --- lisp/utf-2000/ideograph-util.el | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 097d33f..a334e2f 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -205,17 +205,20 @@ (let ((chars (sort (copy-list (aref ideograph-radical-chars-vector radical)) (function ideograph-char<))) - attributes ccs) + attributes ccss) (dolist (name (char-attribute-list)) - (if (find-charset name) - (push name ccs) - (push name attributes))) + (unless (memq name char-db-ignored-attributes) + (if (find-charset name) + (push name ccss) + (push name attributes)))) (setq attributes (sort attributes #'char-attribute-name<) - ccs (sort ccs #'char-attribute-name<)) + ccss (sort ccss #'char-attribute-name<)) (aset ideograph-radical-chars-vector radical chars) - (while chars - (insert-char-data (car chars) nil attributes ccs) - (setq chars (cdr chars))))) + (dolist (char chars) + (when (some (lambda (ccs) + (encode-char char ccs)) + 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