(insert-char-attributes): Sort `attributes' and `ccs-attributes';

support `ideographic-different-form-of'.

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index a2ee0ea..3b89492 100644 (file)
--- 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)