$font_start=$1,$ids_start=$2;
}elsif(m/^(.*?)\t(\d+)\t(\d+)/){
$ids{$1}=[$2,$3,];
+ }else{
+ die "Irregular IDS file: $idsdata_file.\n";
}
}
seek(IDSDATA,0,0);
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;