From be85c5f8882912094ceb499d9f1b3c88049d77f7 Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 14 Nov 1999 09:02:29 +0000 Subject: [PATCH] (insert-char-data): Modify order when CHAR does not have `decimal-digit-value' property. --- lisp/utf-2000/char-db-util.el | 24 ++++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) 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) -- 1.7.10.4