From: tomo <tomo>
Date: Fri, 12 Aug 2005 10:49:17 +0000 (+0000)
Subject: (char-attribute-name<): Put `->FOO' into the last place before
X-Git-Tag: r21-4-17-chise-0_22-4^20~272
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e1fe944609efd30b9fb637cf18f333b72c00f9a8;p=chise%2Fxemacs-chise.git-

(char-attribute-name<): Put `->FOO' into the last place before
`->subsumptive' and `->denotational'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index bbccc1e..17049aa 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -96,6 +96,17 @@
     nil)
    ((eq '->subsumptive ka)
     nil)
+   ((and (symbolp ka)
+	 (string-match "^->" (symbol-name ka)))
+    (cond ((and (symbolp kb)
+		(string-match "^->" (symbol-name kb)))
+	   (string< (symbol-name ka)
+		    (symbol-name kb))
+	   ))
+    )
+   ((and (symbolp kb)
+	 (string-match "^->" (symbol-name kb)))
+    t)
    ((find-charset ka)
     (if (find-charset kb)
 	(if (<= (charset-id ka) 1)