From: imiyazaki <imiyazaki>
Date: Wed, 22 Sep 2004 00:43:47 +0000 (+0000)
Subject: do nothing in case of ASCII characters.
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fomega.git;a=commitdiff_plain;h=c09d92cc1315ffbd8abc5a195c3c12546d9b1760

do nothing in case of ASCII characters.
---

diff --git a/chise2otf/chise2otf b/chise2otf/chise2otf
index b2a8355..c9c5002 100755
--- a/chise2otf/chise2otf
+++ b/chise2otf/chise2otf
@@ -454,13 +454,13 @@ sub get_char_in_mcs{
     # argument: <char>, <input coding system>
     # return:   char in ucs@mcs.
     my($char,$in_cs)=@_;
-    my($output_char);
-    my $char_id=unpack("U",$char);
+    my($output_char,$char_id);
+    return $char if($char le "~");
 
+    $char_id=unpack("U",$char);
     if($opt_latin and $texmacro[$char_id]){
 	return $char;
-    }
-    if(($output_char)=&get_chars_matching("=$in_cs",$char_id)){
+    }elsif(($output_char)=&get_chars_matching("=$in_cs",$char_id)){
 	return $output_char;
     }else{
 	return $char;
diff --git a/inCHISE b/inCHISE
index 67726bc..b06ef5e 100755
--- 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;