digraphs: reuse unicode character details

[sheet.git] / digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 3f2d1bf090127d5028ca28f16b381cb4a4755fbf..702e3e6054fcdc959eba43ea7be0f4d32d83e3d6 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -63,7 +63,7 @@ for my $c1group (@chars) {
                        my @class = ('X', grep {$_} $prop, $script);
 
                        $glyph = EscapeHTML($glyph);
-                       $glyph = "<span>$glyph</span>" if $prop eq 'Zs';
+                       $glyph = "<span>$glyph</span>" if $prop =~ /\bZs\b/;
 
                        printf "\n".'<td class="%s" title="%s">%s',
                                join(' ', @class), EscapeHTML($desc), $glyph;