From: tomo <tomo>
Date: Mon, 24 Oct 2005 14:48:32 +0000 (+0000)
Subject: (char-attribute-name<): Put `<-FOO' (except `<-simplified' and
X-Git-Tag: r21-4-17-chise-0_22-6^20~416
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8d3a5c36ab04f2489053cf14508e2062ab62d15f;p=chise%2Fxemacs-chise.git

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

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)