+
+(dolist (aj1-f '(=>>>adobe-japan1 =>>adobe-japan1))
+ (map-char-attribute
+ (lambda (c v)
+ (cond
+ ((<= v 8283)
+ (remove-char-attribute c aj1-f)
+ (put-char-attribute c (intern (format "%s-0" aj1-f)) v)
+ )
+ ((<= v 8358)
+ (remove-char-attribute c aj1-f)
+ (put-char-attribute c (intern (format "%s-1" aj1-f)) v)
+ )
+ ((<= v 8719)
+ (remove-char-attribute c aj1-f)
+ (put-char-attribute c (intern (format "%s-2" aj1-f)) v)
+ )
+ ((<= v 9353)
+ (remove-char-attribute c aj1-f)
+ (put-char-attribute c (intern (format "%s-3" aj1-f)) v)
+ )
+ ((<= v 15443)
+ (remove-char-attribute c aj1-f)
+ (put-char-attribute c (intern (format "%s-4" aj1-f)) v)
+ )
+ ((<= v 20316)
+ (remove-char-attribute c aj1-f)
+ (put-char-attribute c (intern (format "%s-5" aj1-f)) v)
+ )
+ ((<= v 23057)
+ (remove-char-attribute c aj1-f)
+ (put-char-attribute c (intern (format "%s-6" aj1-f)) v)
+ ))
+ nil)
+ aj1-f))