X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4e1baf7dd0bd8b9f632a5ca00377b5136c1890c8..7d90d00434f3568aa4bae2c8a7585668018c298d:/Shiar_Sheet/Keyboard.pm?ds=inline
diff --git a/Shiar_Sheet/Keyboard.pm b/Shiar_Sheet/Keyboard.pm
index c627d6d..2ab838e 100644
--- a/Shiar_Sheet/Keyboard.pm
+++ b/Shiar_Sheet/Keyboard.pm
@@ -120,8 +120,8 @@ sub print_key {
}
my $keytxt = $self->print_letter($key, $mode);
- $keytxt .= $self->{sign}->{$1} while $flags =~ s/(?:^| )(arg[a-ln-z]?)\b//; # arguments
$keytxt .= "$self->{sign}->{motion}" if $flags =~ s/ ?\bargm\b//; # motion argument
+ $keytxt .= $self->{sign}->{$1} while $flags =~ s/(?:^| )(arg[a-ln-z]?)\b//; # arguments
my $keyhint = defined($mnem) && qq{ title="$mnem"};
$keytxt = "$keytxt";
$keytxt .= ' '.$desc if defined $desc;