(char-attribute-name<): Modify for =jis-x0208.
authortomo <tomo>
Mon, 12 Apr 2004 07:48:57 +0000 (07:48 +0000)
committertomo <tomo>
Mon, 12 Apr 2004 07:48:57 +0000 (07:48 +0000)
lisp/utf-2000/char-db-util.el

index a5d8195..3495f53 100644 (file)
@@ -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))
                     (charset-dimension kb))
                  ))
              t)
-         (if (<= (charset-id kb) 0)
+         (if (<= (charset-id kb) 1)
              nil
            (< (charset-id ka)(charset-id kb))))
       nil))