fix space between punctuation and CJK character.

diff --git a/inCHISE b/inCHISE
index b202d60..7a49830 100755 (executable)
--- a/inCHISE
+++ b/inCHISE
@@ -196,10 +196,10 @@ while(<>){
            if($i>0 and $i<$#chars){
                if(($chars[$i-1]=~/[$asian]/
                    and $chars[$i+1]=~/[^$asian]/
-                     and $chars[$i+1]=~/[^$strictly_forbidden_after$slightly_forbidden_after]/)
+                     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_before$slightly_forbidden_before]/)
+                     and $chars[$i-1]=~/[$strictly_forbidden_after$slightly_forbidden_after]/)
                   ){
                    print '';
                }elsif(($chars[$i-1]=~/[$asian]/
@@ -327,11 +327,11 @@ sub add_break{
     if($i<($#chars-1)){
        if(($chars[$i+1]=~m/[$strictly_forbidden_before]/o)
           and($chars[$i+2]=~m/[$strictly_forbidden_before]/o)){
-           return "\\CJKunbreakablekernone ";
+           return "\\CJKunbreakablekernone{}";
        }elsif($opt_protrude){
            if(($chars[$i+1]=~m/[$strictly_forbidden_before]/o)
               and($chars[$i+2]=~m/[^$strictly_forbidden_before]/o)){
-               return "\\CJKunbreakablekernone \\CJKprotrude ";
+               return "\\CJKunbreakablekernone \\CJKprotrude{}";
            }
        }
     }
@@ -342,31 +342,31 @@ sub add_break{
     }
     if(($i<$#chars)
        and($chars[$i+1]=~m/[$strictly_forbidden_before]/o)){
-       return "\\CJKunbreakablekernone ";
+       return "\\CJKunbreakablekernone{}";
     }
     if($chars[$i]=~m/[$strictly_forbidden_after]/o){
-       return "\\CJKunbreakablekernone ";
+       return "\\CJKunbreakablekernone{}";
     }
     if(($i<$#chars)
        and($chars[$i+1]=~m/[$forbidden_before]/o)){
-       return "\\CJKunbreakablekerntwo ";
+       return "\\CJKunbreakablekerntwo{}";
 
     }
     if($chars[$i]=~m/[$forbidden_after]/o){
-       return "\\CJKunbreakablekerntwo ";
+       return "\\CJKunbreakablekerntwo{}";
     }
     if(($i<$#chars)
        and($chars[$i+1]=~m/[$slightly_forbidden_before]/o)){
-       return "\\CJKunbreakablekernthree ";
+       return "\\CJKunbreakablekernthree{}";
     }
     if($chars[$i]=~m/[$slightly_forbidden_after]/o){
-       return "\\CJKunbreakablekernthree ";
+       return "\\CJKunbreakablekernthree{}";
     }
     if($chars[$i]=~m/[$asian]/o){
-       return "\\CJKbreakablekern ";
+       return "\\CJKbreakablekern{}";
     }
     if(($i<$#chars)and($chars[$i+1]=~m/[$asian]/o)){
-       return "\\CJKbreakablekern ";
+       return "\\CJKbreakablekern{}";
     }
 }