From e1fe944609efd30b9fb637cf18f333b72c00f9a8 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 12 Aug 2005 10:49:17 +0000 Subject: [PATCH] (char-attribute-name<): Put `->FOO' into the last place before `->subsumptive' and `->denotational'. --- lisp/utf-2000/char-db-util.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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) -- 1.7.10.4