# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1371288201 -32400
# Node ID 0285a01caf93aa7a69d1f6ae7f5dbc686abc56bf
# Parent  7f5d4dad9d6b20f40f439320e334bcdac6ef094b
fix

diff -r 7f5d4dad9d6b -r 0285a01caf93 14x14ja.bdf
--- a/14x14ja.bdf	Sat Jun 15 18:19:15 2013 +0900
+++ b/14x14ja.bdf	Sat Jun 15 18:23:21 2013 +0900
@@ -32,7 +32,7 @@
 CAP_HEIGHT 9
 X_HEIGHT 7
 ENDPROPERTIES
-CHARS 19272
+CHARS 19271
 
 STARTCHAR char0
 ENCODING 0
diff -r 7f5d4dad9d6b -r 0285a01caf93 7x14.bdf
--- a/7x14.bdf	Sat Jun 15 18:19:15 2013 +0900
+++ b/7x14.bdf	Sat Jun 15 18:23:21 2013 +0900
@@ -29,7 +29,7 @@
 FONT_DESCENT 2
 FONT_ASCENT 12
 ENDPROPERTIES
-CHARS 2647
+CHARS 2646
 
 STARTCHAR char0
 ENCODING 0
diff -r 7f5d4dad9d6b -r 0285a01caf93 ascii2bdf.pl
--- a/ascii2bdf.pl	Sat Jun 15 18:19:15 2013 +0900
+++ b/ascii2bdf.pl	Sat Jun 15 18:23:21 2013 +0900
@@ -35,7 +35,7 @@
 }
 
 print @header if (@header);
-print "CHARS ",scalar(keys %chars)+1,"\n\n";
+print "CHARS ",scalar(keys %chars),"\n\n";
 for my $k ( sort {$a <=> $b} keys %chars) {
     my $ch = $chars{$k};
     print "STARTCHAR $ch->{name}\n";