From: 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/gitweb/?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))