--- rxvt-unicode/src/perl/searchable-scrollback 2007/11/11 04:08:00 1.24 +++ rxvt-unicode/src/perl/searchable-scrollback 2012/06/06 15:06:41 1.27 @@ -2,6 +2,8 @@ # this extension implements scrollback buffer search +#:META:X_RESOURCE:%:string:activation hotkey keysym + sub on_init { my ($self) = @_; @@ -82,7 +84,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 +164,7 @@ $self->{search} =~ s/^\(\?i\)// if $self->{search} =~ /^\(.*[[:upper:]]/; - + $self->search (-1); $self->idle;