font: ignore escape character in character tables

diff --git a/tools/mkfontinfo b/tools/mkfontinfo
index f5b503c53071d9ffcc3586cef4dc85bb4baa2adb..a9f0d37c9566c97061d1b4423a27bcb834f09e19 100755 (executable)
--- a/tools/mkfontinfo
+++ b/tools/mkfontinfo
@@ -35,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} }, $_;
                        }