- if((($chars[$i-1]=~/[$asian]/)
- and($chars[$i+1]=~/[^$asian]/))
- or(($chars[$i-1]=~/[^$asian]/)
- and($chars[$i+1]=~/[$asian]/))){
- print '{\selectjisfont\hspace{.25ex}}';
+ if(($chars[$i-1]=~/[$asian]/
+ and $chars[$i+1]=~/[^$asian]/
+ and $chars[$i+1]=~/[$strictly_forbidden_before$slightly_forbidden_before]/)
+ or($chars[$i-1]=~/[^$asian]/
+ and $chars[$i+1]=~/[$asian]/
+ and $chars[$i-1]=~/[$strictly_forbidden_after$slightly_forbidden_after]/)
+ ){
+ print '';
+ }elsif(($chars[$i-1]=~/[$asian]/
+ and $chars[$i+1]=~/[^$asian]/)){
+ print '\unskip\kern.25ex';
+ }elsif($chars[$i-1]=~/[^$asian]/
+ and $chars[$i+1]=~/[$asian]/){
+ print '\kern.25ex';