From: tomo <tomo>
Date: Wed, 26 Nov 2003 08:24:54 +0000 (+0000)
Subject: (char-attribute-name<): Use only `charset-id' again.
X-Git-Tag: r21-4-14-chise-0_21-10^2~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=087aa26d276de36e01af429db033e10a271589aa;p=chise%2Fxemacs-chise.git-

(char-attribute-name<): Use only `charset-id' again.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index ed05f01..e2be819 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -79,30 +79,19 @@
    ((find-charset ka)
     (cond
      ((find-charset kb)
-      (if (and (charset-iso-final-char ka)
-	       (>= (charset-iso-final-char ka) ?@)
-	       (charset-iso-final-char kb)
-	       (>= (charset-iso-final-char kb) ?@))
-	  (cond
-	   ((= (charset-dimension ka)
-	       (charset-dimension kb))
-	    (< (charset-iso-final-char ka)
-	       (charset-iso-final-char kb)))
-	   (t
-	    (> (charset-dimension ka)
-	       (charset-dimension kb))
-	    ))
-	(if (< (charset-id ka) 0)
-	    (if (< (charset-id kb) 0)
-		(cond
-		 ((= (charset-dimension ka)
-		     (charset-dimension kb))
-		  (> (charset-id ka)(charset-id kb)))
-		 (t
-		  (> (charset-dimension ka)
-		     (charset-dimension kb))
-		  ))
-	      t)
+      (if (<= (charset-id ka) 0)
+	  (if (<= (charset-id kb) 0)
+	      (cond
+	       ((= (charset-dimension ka)
+		   (charset-dimension kb))
+		(> (charset-id ka)(charset-id kb)))
+	       (t
+		(> (charset-dimension ka)
+		   (charset-dimension kb))
+		))
+	    t)
+	(if (<= (charset-id kb) 0)
+	    nil
 	  (< (charset-id ka)(charset-id kb)))))
      ((symbolp kb)
       nil)