manual/Trad,12,13,0,-2.rules

   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 }