--- rxvt-unicode/src/perl/searchable-scrollback 2020/03/13 11:18:29 1.45 +++ rxvt-unicode/src/perl/searchable-scrollback 2021/07/24 09:48:43 1.48 @@ -6,7 +6,7 @@ =head1 NAME -searchable-scrollback - incremental scrollback search (enabled by default) +searchable-scrollback - incremental scrollback search =head1 DESCRIPTION @@ -18,7 +18,7 @@ Inputting characters appends them to the regex and continues incremental search. In addition, the following bindings are recognized: -=over 4 +=over =item C @@ -168,7 +168,7 @@ } while $text =~ /$re/g; $self->{row} = $row; - $self->view_start (List::Util::min 0, $row - ($self->nrow >> 1)); + $self->view_start ($row - ($self->nrow >> 1)); $self->want_refresh; return; } @@ -223,10 +223,10 @@ if $line->end < $self->nrow; } elsif ($keysym == 0xff55) { # prior my $row = $self->view_start - ($self->nrow - 1); - $self->view_start (List::Util::min 0, $row); + $self->view_start ($row); } elsif ($keysym == 0xff56) { # next my $row = $self->view_start + ($self->nrow - 1); - $self->view_start (List::Util::min 0, $row); + $self->view_start ($row); } elsif ($keysym == 0xff63) { # insert $self->selection_request (urxvt::CurrentTime, 1); } elsif ($keysym == 0xff08) { # backspace