digraphs: preserve string representations in verbose inversions
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 22 Feb 2015 22:10:58 +0000 (23:10 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 9 Jun 2015 03:43:42 +0000 (05:43 +0200)
digraphs.plp

index 72af1be..54097cb 100644 (file)
@@ -35,7 +35,7 @@ my $di = do 'digraphs.inc.pl'
 if (exists $get{v}) {
        # show characters for inverted mnemonics (vim alternatives)
        $di->{ substr($_, 1, 1) . substr($_, 0, 1) } ||=
-               [$di->{$_}->[0], '', 'l0 ex']
+               [ $di->{$_}->[0], '', 'l0 ex', '', $di->{$_}->[4] ]
                for grep { ref $di->{$_} } keys %{$di};
 }