Показать сообщение отдельно
Старый 10.11.2005, 23:46   #99
Sir
Новичок
 
Регистрация: 06.11.2005
Сообщений: 19
По умолчанию Re: MMC. Конфиг килника.

Цитата:
Сообщение от 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
__________________
Счастливого пути, куда бы он ни лежал!
Sir вне форума   Ответить с цитированием