X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/aff24d1391a688cdef38674f3f10c4842d84fa1a..08817fabd6fb93f65754166fdcaaa75c928d9651:/tools/mkfontinfo

diff --git a/tools/mkfontinfo b/tools/mkfontinfo
index a6dc15a..a9f0d37 100755
--- a/tools/mkfontinfo
+++ b/tools/mkfontinfo
@@ -23,9 +23,6 @@ for my $fontfile (glob 'ttfsupport/*'.$incsuffix) {
 	};
 }
 
-	when (qr{^[a-z]+(?:/|\z)}) {
-	}
-
 my %charlist;
 
 my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;
@@ -38,6 +35,7 @@ if ($chartables) {
 				$includerows ||= m/^[.]/ or next;
 				next if /^[.-]/;
 				next if $_ eq '>' or $_ eq '=';
+				s/^\\//;  # escape
 				push @{ $charlist{table}->{"$tablegroup/$tablename"} }, $_;
 				push @{ $charlist{table}->{$tablegroup} }, $_;
 			}