--- rxvt-unicode/src/perl/searchable-scrollback 2014/06/08 19:40:20 1.38 +++ rxvt-unicode/src/perl/searchable-scrollback 2014/10/14 09:00:52 1.41 @@ -46,6 +46,15 @@ () } +sub on_user_command { + my ($self, $cmd) = @_; + + $cmd eq "searchable-scrollback:start" + and $self->enter; + + () +} + sub on_action { my ($self, $action) = @_; @@ -94,6 +103,7 @@ delete $self->{manpage_overlay}; delete $self->{overlay}; delete $self->{search}; + delete $self->{found}; } sub idle { @@ -124,14 +134,14 @@ $self->{row} = $row; $self->view_start (List::Util::min 0, $row - ($self->nrow >> 1)); $self->want_refresh; - last; + return; } $row = $dir < 0 ? $line->beg - 1 : $line->end + 1; } } - $self->scr_bell unless $self->{found}; + $self->scr_bell; } sub refresh {