+ (cond
+ ((= a-ir 177)
+ t)
+ ((and (setq b-id (charset-id kb))
+ (or (and (<= charset-id-=adobe-japan1-0 b-id)
+ (<= b-id charset-id-=adobe-japan1-6))
+ (and (<= charset-id-=>>>adobe-japan1-0 b-id)
+ (<= b-id charset-id-=>>>adobe-japan1-6))
+ (and (<= charset-id-=>>adobe-japan1-0 b-id)
+ (<= b-id charset-id-=>>adobe-japan1-6))
+ ))
+ nil)
+ (t)))
+ (if (setq b-ir (charset-property kb 'iso-ir))
+ (cond
+ ((= b-ir 177)
+ nil)
+ ((and (setq a-id (charset-id ka))
+ (or (and (<= charset-id-=adobe-japan1-0 a-id)
+ (<= a-id charset-id-=adobe-japan1-6))
+ (and (<= charset-id-=>>>adobe-japan1-0 a-id)
+ (<= a-id charset-id-=>>>adobe-japan1-6))
+ (and (<= charset-id-=>>adobe-japan1-0 a-id)
+ (<= a-id charset-id-=>>adobe-japan1-6))
+ ))
+ t)
+ (t nil))
+ (cond
+ ((and (setq a-id (charset-id ka))
+ (or (and (<= charset-id-=adobe-japan1-0 a-id)
+ (<= a-id charset-id-=adobe-japan1-6))
+ (and (<= charset-id-=>>>adobe-japan1-0 a-id)
+ (<= a-id charset-id-=>>>adobe-japan1-6))
+ (and (<= charset-id-=>>adobe-japan1-0 a-id)
+ (<= a-id charset-id-=>>adobe-japan1-6))
+ ))
+ (if (and (setq b-id (charset-id kb))
+ (or (and (<= charset-id-=adobe-japan1-0 b-id)
+ (<= b-id charset-id-=adobe-japan1-6))
+ (and (<= charset-id-=>>>adobe-japan1-0 b-id)
+ (<= b-id charset-id-=>>>adobe-japan1-6))
+ (and (<= charset-id-=>>adobe-japan1-0 b-id)
+ (<= b-id charset-id-=>>adobe-japan1-6))
+ ))
+ (< a-id b-id)
+ t))
+ ((and (setq b-id (charset-id kb))
+ (or (and (<= charset-id-=adobe-japan1-0 b-id)
+ (<= b-id charset-id-=adobe-japan1-6))
+ (and (<= charset-id-=>>>adobe-japan1-0 b-id)
+ (<= b-id charset-id-=>>>adobe-japan1-6))
+ (and (<= charset-id-=>>adobe-japan1-0 b-id)
+ (<= b-id charset-id-=>>adobe-japan1-6))
+ ))
+ nil)
+ (t
+ (< (charset-id ka)(charset-id kb))
+ )))))