git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
digraphs: map private use characters to modern equivalents
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index b62b57774b9f85a425dc9b84ed6b3b26e2c62c0f..a8f681d959b80a8b450ba7b62188dcd28e5c2663 100644
(file)
--- a/
digraphs.plp
+++ b/
digraphs.plp
@@
-57,6
+57,10
@@
for my $c1group (@chars) {
print '<td>';
next;
}
print '<td>';
next;
}
+ if (ref $di->{$mnem} ne 'ARRAY') {
+ printf '<td class="X Xr" title="%s">', quote($mnem);
+ next;
+ }
my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
my $glyph = chr $codepoint;
my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
my $glyph = chr $codepoint;
@@
-92,6
+96,7
@@
print "</table>\n";
<td class="X Latin">latin
<td class="X Hebrew">hebrew
<td class="X Arabic">arabic
<td class="X Latin">latin
<td class="X Hebrew">hebrew
<td class="X Arabic">arabic
+ <td class="X Hangul">korean
<td class="X Hiragana">japanese
<td class="X Bopomofo">chinese
</table>
<td class="X Hiragana">japanese
<td class="X Bopomofo">chinese
</table>