print '<td colspan=2>unicode';
print '<td>name';
print '<td><a href="/digraphs" title="digraph">di</a><td>html';
-printf '<td title="%s">%s', $font{$_}->{-name}, $font{$_}->{-abbr}
- for @fontlist;
+printf('<td title="%s">%s', map { EscapeHTML($_) }
+ join("\n", $font{$_}->{-name}, $font{$_}->{-description}),
+ $font{$_}->{-abbr},
+) for @fontlist;
say '</thead>';
for my $chr (@chars) {