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

keyboard-select: fixed selection/cursor interference in normal mode

Browse Source
This commit is contained in:
Bert 2010-08-13 11:05:37 +02:00
parent 7cb72dbc98
commit 4de636301f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
keyboard-select
View File

@ -94,6 +94,11 @@ sub refresh {
$self->scr_xor_rect($br, $bc, $er, $ec, urxvt::RS_RVid); $self->scr_xor_rect($br, $bc, $er, $ec, urxvt::RS_RVid);
} else { } else {
$self->scr_xor_span($br, $bc, $er, $ec, urxvt::RS_RVid); $self->scr_xor_span($br, $bc, $er, $ec, urxvt::RS_RVid);
if ($self->{mode} ne 'l') {
$self->scr_xor_span($self->{cr}, $self->{cc},
$self->{cr}, $self->{cc} + 1, urxvt::RS_RVid);
}
} }
} }
@ -227,12 +232,7 @@ sub calc_span {
$bc = 0; $bc = 0;
$ec = $self->ncol; $ec = $self->ncol;
} else { } else {
if (!$copy && $bc == $self->{cc}) { ++$ec;
++$bc;
}
if ($copy || $ec != $self->{cc} || $br != $er) {
++$ec;
}
} }
#print "($br,$bc) - ($er,$ec)\n"; #print "($br,$bc) - ($er,$ec)\n";