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 72af1bee70461fcf10fcf873ba974fae278e65b4..54097cb0bd788228c22ed223602bb8bb1e3119d3 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};
 }