Цитата:
Сообщение от Sir
Вопрос на засыпку: "Как забиндить кнопку '0'?"
|
Ничего лучшего не придумал, как исправить в модуле Keymap функцию bindkey:
Код:
sub bindkey($$) {
my $code=$_[0];
if ($code) {
$code =~ s/C-(.)$/C-\U$1/;
if (defined($_[1])) {
$keymap{$code}=$_[1];
} else {
delete $keymap{$code};
}
}
}
на:
Код:
sub bindkey($$) {
my $code=$_[0];
if (defined($code)) {
$code =~ s/C-(.)$/C-\U$1/;
if (defined($_[1])) {
$keymap{$code}=$_[1];
} else {
delete $keymap{$code};
}
}
}
P.S. Urik, переходи на mmc