- (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))
+ (charset-id-adobe-japan1-p a-id))
+ (cond
+ ((eq kb '=mj)
+ nil)
+ ((eq kb '==mj)
+ nil)
+ ((eq kb '=>>mj)
+ nil)
+ ((and (setq b-id (charset-id kb))
+ (charset-id-adobe-japan1-p b-id))
+ (< a-id b-id))
+ (t))
+ )
+ ((eq kb '=mj)
+ nil)
+ ((eq kb '==mj)
+ nil)
+ ((eq kb '=>>mj)
+ nil)