From 2e7f73962359cd1b86135a7f732698f9f119649e Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 20 Nov 2001 17:22:39 +0000 Subject: [PATCH] (insert-ideograph-radical-char-data): Now return value of `char-attribute-list' includes names of CCS-attributes. --- lisp/utf-2000/ideograph-util.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 562485b..4612b30 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -205,8 +205,13 @@ (let ((chars (sort (copy-list (aref ideograph-radical-chars-vector radical)) (function ideograph-char<))) - (attributes (sort (char-attribute-list) #'char-attribute-name<)) - (ccs (sort (charset-list) #'char-attribute-name<))) + attributes ccs) + (dolist (name (char-attribute-list)) + (if (find-charset name) + (push name ccs) + (push name attributes))) + (setq attributes (sort attributes #'char-attribute-name<) + ccs (sort ccs #'char-attribute-name<)) (aset ideograph-radical-chars-vector radical chars) (while chars (insert-char-data (car chars) nil attributes ccs) -- 1.7.10.4