applications/urxvt-perls
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

keyboard-select: fix tabs in ^ mapping

Browse Source
This commit is contained in:
Bert 2010-08-15 16:22:21 +02:00
parent 73cb4ef3bf
commit d9b55a44ca
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
keyboard-select
View File

@ -64,7 +64,7 @@ sub key_press {
move_cursor($self, 'h');
} elsif ($char eq 'l' || $keysym == 0xff53) {
move_cursor($self, 'l');
} elsif ('gG0^$HML' =~ m/$char/) {
} elsif ('gG0^$HML' =~ m/\Q$char\E/) {
move_cursor($self, $char);
}
@ -119,8 +119,9 @@ sub move_cursor {
} elsif ($key eq '0') {
$self->{cc} = 0;
} elsif ($key eq '^') {
my $ltxt = $self->line($self->{cr})->t;
$self->{cc} = $ltxt =~ m/^[ \t]+/ ? $+[0] : 0;
my $ltxt = $self->special_decode($self->line($self->{cr})->t);
while ($ltxt =~ s/^( *)\t/$1 . " " x (8 - length($1) % 8)/e) {}
$self->{cc} = $ltxt =~ m/^ +/ ? $+[0] : 0;
} elsif ($key eq '$') {
my $ltxt = $self->line($self->{cr})->t;
$self->{cc} = ($ltxt =~ m/$/ ? $-[0] : $self->ncol) - 1;