my $di = do 'digraphs.inc.pl'
or die "Error loading digraphs data: ", $@ // $!;
+if (exists $get{v}) {
+ # show characters for inverted mnemonics (vim alternatives)
+ $di->{ substr($_, 1, 1) . substr($_, 0, 1) } ||=
+ [ $di->{$_}->[0], '', 'l0 ex', '', $di->{$_}->[4] ]
+ for grep { ref $di->{$_} } keys %{$di};
+}
+
my @chars = (
[qw{! " % ' ( ) * + , - . /}],
['0'..'9'], [qw{: ; < = > ?}],