do nothing in case of ASCII characters.

[chise/omega.git] / inCHISE

diff --git a/inCHISE b/inCHISE
index 67726bc..b06ef5e 100755 (executable)
--- a/inCHISE
+++ b/inCHISE
@@ -610,7 +610,8 @@ sub get_char_in_mcs{
     my($char,$in_cs)=@_;
     my($output_char);
 
-    return $char if($in_cs eq 'ucs@mcs');
+    return $char if($in_cs eq 'ucs@mcs' or
+                   $char le "~");
 
     if(($output_char)=&get_chars_matching("=$in_cs",unpack("U",$char))){
        return $output_char;