From: tomo <tomo>
Date: Mon, 12 Apr 2004 07:48:57 +0000 (+0000)
Subject: (char-attribute-name<): Modify for =jis-x0208.
X-Git-Tag: r21-4-14-chise-0_21-26^2~37
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ef816a94496b753bc4b4efaf6844378923d2189c;p=chise%2Fxemacs-chise.git

(char-attribute-name<): Modify for =jis-x0208.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index a5d8195..3495f53 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -89,8 +89,8 @@
     nil)
    ((find-charset ka)
     (if (find-charset kb)
-	(if (<= (charset-id ka) 0)
-	    (if (<= (charset-id kb) 0)
+	(if (<= (charset-id ka) 1)
+	    (if (<= (charset-id kb) 1)
 		(cond
 		 ((= (charset-dimension ka)
 		     (charset-dimension kb))
@@ -100,7 +100,7 @@
 		     (charset-dimension kb))
 		  ))
 	      t)
-	  (if (<= (charset-id kb) 0)
+	  (if (<= (charset-id kb) 1)
 	      nil
 	    (< (charset-id ka)(charset-id kb))))
       nil))