readline: mark readline v2.1 additions

[sheet.git] / unicode.plp

diff --git a/unicode.plp b/unicode.plp
index 744eed113eb036184fc04841e894a9c7c65261c6..9b77f7fa43530eaa441c7a6560b944dbcde50e3c 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -36,7 +36,7 @@ Also see the <a href="/digraphs">complete digraphs table</a>.</p>
 <:
 my $diinfo = do 'digraphs.inc.pl';
 my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
-       keys %$diinfo;
+       sort { length $a <=> length $b } keys %$diinfo;
 
 sub quote {
        local $_ = shift;