--- rxvt-unicode/src/perl/searchable-scrollback 2007/08/01 17:55:37 1.23 +++ rxvt-unicode/src/perl/searchable-scrollback 2011/11/20 11:09:22 1.26 @@ -37,7 +37,7 @@ return if $self->{overlay}; $self->{view_start} = $self->view_start; - $self->{pty_ev_events} = $self->pty_ev_events (urxvt::EVENT_NONE); + $self->{pty_ev_events} = $self->pty_ev_events (urxvt::EV_NONE); $self->{row} = $self->nrow - 1; $self->{search} = "(?i)"; @@ -82,7 +82,7 @@ no re 'eval'; # just to be sure if (my $re = eval { qr/$search/ }) { - while ($self->nrow > $row && $row > $self->top_row) { + while ($self->nrow > $row && $row >= $self->top_row) { my $line = $self->line ($row) or last; @@ -162,7 +162,7 @@ $self->{search} =~ s/^\(\?i\)// if $self->{search} =~ /^\(.*[[:upper:]]/; - + $self->search (-1); $self->idle;