From: tomo <tomo>
Date: Mon, 10 Nov 2003 16:24:48 +0000 (+0000)
Subject: (char-attribute-name<): Use new sorting method.
X-Git-Tag: r21-4-14-chise-0_21-3^2~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0518ed3a2aa6fa9e3f90e7857c9a2b94ec6e27bb;p=chise%2Fxemacs-chise.git-

(char-attribute-name<): Use new sorting method.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index df81a7a..c0f42b8 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -82,28 +82,9 @@
       (cond
        ((= (charset-dimension ka)
 	   (charset-dimension kb))
-	(cond ((= (charset-chars ka)(charset-chars kb))
-	       (if (charset-iso-final-char ka)
-		   (cond
-		    ((>= (charset-iso-final-char ka) ?@)
-		     (if (and (charset-iso-final-char kb)
-			      (>= (charset-iso-final-char kb) ?@))
-			 (< (charset-iso-final-char ka)
-			    (charset-iso-final-char kb))
-		       t))
-		    (t
-		     (if (charset-iso-final-char kb)
-			 (if (>= (charset-iso-final-char kb) ?@)
-			     nil
-			   (< (charset-iso-final-char ka)
-			      (charset-iso-final-char kb)))
-		       t)))
-		 (if (charset-iso-final-char kb)
-		     nil
-		   (< (charset-id ka)(charset-id kb)))))
-	      ((<= (charset-chars ka)(charset-chars kb)))))
+	(< (charset-id ka)(charset-id kb)))
        (t
-	(< (charset-dimension ka)
+	(> (charset-dimension ka)
 	   (charset-dimension kb))
 	)))
      ((symbolp kb)