+(defun charset-id-adobe-japan1-p (id)
+ (or (and (<= charset-id-=adobe-japan1-0 id)
+ (<= id charset-id-=adobe-japan1-6))
+ (and (<= charset-id-==adobe-japan1-0 id)
+ (<= id charset-id-==adobe-japan1-6))
+ ;; (and (<= charset-id-=>>>adobe-japan1-0 id)
+ ;; (<= id charset-id-=>>>adobe-japan1-6))
+ (and (<= charset-id-=>>adobe-japan1-0 id)
+ (<= id charset-id-=>>adobe-japan1-6))
+ ))
+