Commit | Line | Data |
---|---|---|
460cb922 IJ |
1 | # -*- perl -*- |
2 | sub { | |
3 | if ($props{' 7bit'}) { | |
4 | # bad characters are from 12x13ja.pcf.gz | |
5 | 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/; | |
6 | 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/; | |
7 | } | |
8 | } |