}else{
foreach $out_cs (@order){
if($out_cs eq 'UniJIS'){
- if($out_char=&get_char_attribute($char,'=ucs@jis')){
+ if($out_char=&get_char_attribute($char,'=ucs@jis')
+ or ($out_char=&get_char_attribute($char,'=ucs')and
+ &get_char_attribute($char,"adobe-unijis-ucs2-h"))
+ ){
return "\\UTF{".sprintf("%X",$out_char)."}";
}
}elsif($out_cs eq 'UniGB'){
if($out_char=&get_char_attribute($char,'=ucs@gb')
- or $out_char=&get_char_attribute($char,'=ucs')){
+ or ($out_char=&get_char_attribute($char,'=ucs')and
+ &get_char_attribute($char,"adobe-unigb-ucs2-h"))
+ ){
return "\\UTFC{".sprintf("%X",$out_char)."}";
}
}elsif($out_cs eq 'UniCNS'){
- if($out_char=&get_char_attribute($char,'=ucs@cns')){
+ if($out_char=&get_char_attribute($char,'=ucs@cns')
+ or ($out_char=&get_char_attribute($char,'=ucs')and
+ &get_char_attribute($char,"adobe-unicns-ucs2-h"))
+ ){
return "\\UTFT{".sprintf("%X",$out_char)."}";
}
}elsif($out_cs eq 'UniKS'){
- if($out_char=&get_char_attribute($char,'=ucs@ks')){
+ if($out_char=&get_char_attribute($char,'=ucs@ks')
+ or ($out_char=&get_char_attribute($char,'=ucs')and
+ &get_char_attribute($char,"adobe-uniks-ucs2-h"))
+ ){
return "\\UTFK{".sprintf("%X",$out_char)."}";
}
}elsif($out_cs eq 'GT'){