From: tomo <tomo>
Date: Sun, 14 Nov 1999 09:02:29 +0000 (+0000)
Subject: (insert-char-data): Modify order when CHAR does not have
X-Git-Tag: r21-2-19-utf-2000-0_12-0~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=be85c5f8882912094ceb499d9f1b3c88049d77f7;p=chise%2Fxemacs-chise.git

(insert-char-data): Modify order when CHAR does not have
`decimal-digit-value' property.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index bfb0e90..8fa8fbb 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -176,7 +176,8 @@
 			  cell))
 	  (setq data (del-alist 'mirrored data))
 	  )
-	(when (setq cell (assq 'decimal-digit-value data))
+	(cond
+	 ((setq cell (assq 'decimal-digit-value data))
 	  (setq cell (cdr cell))
 	  (insert (format "(decimal-digit-value . %S)
     "
@@ -197,13 +198,28 @@
 	    (setq data (del-alist 'numeric-value data))
 	    )
 	  )
-	(when (setq cell (assq 'iso-10646-comment data))
+	 (t
+	  (when (setq cell (assq 'digit-value data))
 	    (setq cell (cdr cell))
-	    (insert (format "(iso-10646-comment\t. %S)
+	    (insert (format "(digit-value\t. %S)
     "
 			    cell))
-	    (setq data (del-alist 'iso-10646-comment data))
+	    (setq data (del-alist 'digit-value data))
 	    )
+	  (when (setq cell (assq 'numeric-value data))
+	    (setq cell (cdr cell))
+	    (insert (format "(numeric-value\t. %S)
+    "
+			    cell))
+	    (setq data (del-alist 'numeric-value data))
+	    )))
+	(when (setq cell (assq 'iso-10646-comment data))
+	  (setq cell (cdr cell))
+	  (insert (format "(iso-10646-comment\t. %S)
+    "
+			  cell))
+	  (setq data (del-alist 'iso-10646-comment data))
+	  )
 	(when (setq cell (assq '->decomposition data))
 	  (setq cell (cdr cell))
 	  (insert (format "(->decomposition\t%s)