X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/28156dcda1b6d8d52bf3f2a9c0086f944400949b..493613a1a6f65eed64f84c4d1bdd2f539416d786:/digraphs.plp
diff --git a/digraphs.plp b/digraphs.plp
index 3073f9a..84ac971 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -23,7 +23,8 @@ Also see common digraphs.
are available as ex commands.
<:
-my $di = do 'digraphs.inc.pl';
+my $di = do 'digraphs.inc.pl'
+ or die "Error loading digraphs data: ", $@ // $!;
my @chars = (
[qw{! " % ' ( ) * + , - . /}],
@@ -66,7 +67,7 @@ for my $c1group (@chars) {
my @class = ('X', grep {$_} $prop, $script);
$glyph = EscapeHTML($glyph);
- $glyph = "$glyph" if $prop =~ /\bZs\b/;
+ $glyph = "$glyph" if $script =~ /\bZs\b/;
printf "\n".'%s',
join(' ', @class), EscapeHTML($desc), $glyph;
@@ -81,9 +82,9 @@ print '
' if exists $get{split};
| control
- | spacing
- | modifier
- | spacing modifier
+ | space
+ | combining
+ | spacing modifier
| quote
| punctuation
| symbol
|
|