From: tomo <tomo>
Date: Mon, 2 Jul 2001 04:38:32 +0000 (+0000)
Subject: (insert-char-attributes): Sort `attributes' and `ccs-attributes';
X-Git-Tag: r21-2-38-utf-2000-0_17-1~430
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=82ae3b83ab4ff8181f21ee64353c39edc228da68;p=chise%2Fxemacs-chise.git-

(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
--- 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)