blob: 3d262205758f3e04bf0d1713f3fb8e1168da12d3 (
plain)
1
2
3
4
5
6
7
8
|
# -*- perl -*-
sub {
if ($props{' 7bit'}) {
# bad characters are from 12x13ja.pcf.gz
s/^0000;0C00;0600;0100;0000;0000;0000;0000;0000;0000;0000;0000;0000$/0000;0E00;0600;0100;0000;0000;0000;0000;0000;0000;0000;0000;0000/;
s/^0000;0C00;0C00;0C00;0800;0000;0000;0000;0000;0000;0000;0000;0000$/0000;0700;0600;0800;0000;0000;0000;0000;0000;0000;0000;0000;0000/;
}
}
|