--- /dev/null
+# -*- 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/;
+ }
+}