unicode: more digestible page showing common digraphs

[sheet.git] / digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index a8f681d959b80a8b450ba7b62188dcd28e5c2663..ab04efd454afcc3b26bae5b94a8ebd5fc3193448 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -61,9 +61,9 @@ for my $c1group (@chars) {
                                printf '<td class="X Xr" title="%s">', quote($mnem);
                                next;
                        }
-                       my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
+                       my ($codepoint, $name, $prop, $script, $string) = @{ $di->{$mnem} };
 
-                       my $glyph = chr $codepoint;
+                       my $glyph = $string || chr $codepoint;
                        utf8::upgrade($glyph);  # prevent latin1 output
                        my $desc = $mnem . ($name && " ($name)");
                        my @class = ('X', grep {$_} $prop, $script);