… | |
… | |
166 | do { |
166 | do { |
167 | push @{ $self->{found} }, [$line->coord_of ($-[0]), $line->coord_of ($+[0])]; |
167 | push @{ $self->{found} }, [$line->coord_of ($-[0]), $line->coord_of ($+[0])]; |
168 | } while $text =~ /$re/g; |
168 | } while $text =~ /$re/g; |
169 | |
169 | |
170 | $self->{row} = $row; |
170 | $self->{row} = $row; |
171 | $self->view_start (List::Util::min 0, $row - ($self->nrow >> 1)); |
171 | $self->view_start ($row - ($self->nrow >> 1)); |
172 | $self->want_refresh; |
172 | $self->want_refresh; |
173 | return; |
173 | return; |
174 | } |
174 | } |
175 | |
175 | |
176 | $row = $dir < 0 ? $line->beg - 1 : $line->end + 1; |
176 | $row = $dir < 0 ? $line->beg - 1 : $line->end + 1; |
… | |
… | |
221 | my $line = $self->line ($self->{row}); |
221 | my $line = $self->line ($self->{row}); |
222 | $self->search (+1, $line->end + 1) |
222 | $self->search (+1, $line->end + 1) |
223 | if $line->end < $self->nrow; |
223 | if $line->end < $self->nrow; |
224 | } elsif ($keysym == 0xff55) { # prior |
224 | } elsif ($keysym == 0xff55) { # prior |
225 | my $row = $self->view_start - ($self->nrow - 1); |
225 | my $row = $self->view_start - ($self->nrow - 1); |
226 | $self->view_start (List::Util::min 0, $row); |
226 | $self->view_start ($row); |
227 | } elsif ($keysym == 0xff56) { # next |
227 | } elsif ($keysym == 0xff56) { # next |
228 | my $row = $self->view_start + ($self->nrow - 1); |
228 | my $row = $self->view_start + ($self->nrow - 1); |
229 | $self->view_start (List::Util::min 0, $row); |
229 | $self->view_start ($row); |
230 | } elsif ($keysym == 0xff63) { # insert |
230 | } elsif ($keysym == 0xff63) { # insert |
231 | $self->selection_request (urxvt::CurrentTime, 1); |
231 | $self->selection_request (urxvt::CurrentTime, 1); |
232 | } elsif ($keysym == 0xff08) { # backspace |
232 | } elsif ($keysym == 0xff08) { # backspace |
233 | substr $self->{search}, -1, 1, ""; |
233 | substr $self->{search}, -1, 1, ""; |
234 | $self->search (+1, $self->{row}); |
234 | $self->search (+1, $self->{row}); |