From 8d3a5c36ab04f2489053cf14508e2062ab62d15f Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 24 Oct 2005 14:48:32 +0000 Subject: [PATCH] (char-attribute-name<): Put `<-FOO' (except `<-simplified' and `<-denotational') into the last place before `<-BAR'. --- lisp/utf-2000/char-db-util.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index cbe713b..79d8800 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -107,6 +107,22 @@ ((and (symbolp kb) (string-match "^->" (symbol-name kb))) t) + ((and (symbolp ka) + (string-match "^<-" (symbol-name ka))) + (cond ((symbolp kb) + (cond ((string-match "^<-" (symbol-name kb)) + (string< (symbol-name ka) + (symbol-name kb)) + ) + ;; ((string-match "^->" (symbol-name kb)) + ;; t) + ))) + ) + ((and (symbolp kb) + (string-match "^<-" (symbol-name kb))) + t + ;; (not (string-match "^->" (symbol-name ka))) + ) ((find-charset ka) (if (find-charset kb) (if (<= (charset-id ka) 1) -- 1.7.10.4