From 4e344277e13cd8813592afc6b0bfb89474f0cbb0 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 16 Jun 2000 12:21:18 +0000 Subject: [PATCH] (insert-ideograph-radical-char-data): Use `insert-char-data' with new optional arguments `attributes' and `ccs-attributes'. --- lisp/utf-2000/ideograph-util.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index fc6e52e..87e2e21 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -191,9 +191,12 @@ (defun insert-ideograph-radical-char-data (radical) (let ((chars (sort (copy-list (aref ideograph-radical-chars-vector radical)) - (function ideograph-char<)))) + (function ideograph-char<))) + (attributes (sort (char-attribute-list) #'char-attribute-name<)) + (ccs (sort (charset-list) #'char-attribute-name<))) + (aset ideograph-radical-chars-vector radical chars) (while chars - (insert-char-data (car chars)) + (insert-char-data (car chars) nil attributes ccs) (setq chars (cdr chars))))) (defun write-ideograph-radical-char-data (radical file) -- 1.7.10.4