From 82ae3b83ab4ff8181f21ee64353c39edc228da68 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 2 Jul 2001 04:38:32 +0000 Subject: [PATCH] (insert-char-attributes): Sort `attributes' and `ccs-attributes'; support `ideographic-different-form-of'. --- lisp/utf-2000/char-db-util.el | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index a2ee0ea..3b89492 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -190,14 +190,16 @@ attributes ccs-attributes column) (setq attributes - (if attributes - (if (consp attributes) - (copy-sequence attributes)) - (sort (char-attribute-list) #'char-attribute-name<))) + (sort (if attributes + (if (consp attributes) + (copy-sequence attributes)) + (char-attribute-list)) + #'char-attribute-name<)) (setq ccs-attributes - (if ccs-attributes - (copy-sequence ccs-attributes) - (sort (charset-list) #'char-attribute-name<))) + (sort (if ccs-attributes + (copy-sequence ccs-attributes) + (charset-list)) + #'char-attribute-name<)) (unless column (setq column (current-column))) (let (name value has-long-ccs-name rest @@ -532,7 +534,8 @@ vulgar-ideograph-of wrong-ideograph-of simplified-ideograph-of - ideographic-variants)) + ideographic-variants + ideographic-different-form-of)) (insert (format "(%-18s%s " name line-breaking)) (setq lbs (concat "\n" (make-string (current-column) ?\ )) separator nil) -- 1.7.10.4