- if ($keys->{def}{''}{'+a'}) {
- # move root +meta keys to distinct mode
- $keys->{mode}{"\e"} = '+';
- /^\+./ and $keys->{def}{"\e"}{$_} = delete $keys->{def}{''}{$_}
+ if (($keys->{moderows} // '') =~ /^\d* [3-9] \d{2,}/x) {
+ # move root ^ctrl or +meta keys to distinct mode
+ $row{mode}{"\e"} = '+';
+ /^[+^]./ and $keys->{def}{"\e"}{$_} = delete $keys->{def}{''}{$_}