s/(.)/pack("U",&get_char_id(unpack("U",$1),$in_cs))/ge;
}
s/(amp.+?;)/&de_er($1)/ge;
-# s/(&.+?;)/&tex_de_er($1)/ge;
+# s/(&.+?;)/&de_er($1)/ge;
@chars=split(//);
for($i=0;$i<=$#chars;$i++){
$char=$chars[$i];
}
$i++;
}
- return '{\fontfamily{\rmdefault}\selectfont {'.$out_str.'}}';
+ return '{\normalfont {'.$out_str.'}}';
}
sub ids_parse{