Fix searchable-scrollback to not ignore the first line.

diff --git a/Changes b/Changes
index 198996323057cbee48dfeaa7bb4f25b860b55c10..e2ae8c5b864a9722d7550f034facb4e32dfe0ffd 100644 (file)
--- a/Changes
+++ b/Changes
@@ -21,10 +21,11 @@ DUMB: support tex fonts
 
 TODO: perl-shell-window?
 TODO: zweimal numlock? falsche codes rxvt urxvt for numpad?
-TODO: scrollback search does not find every first line?
 TODO:        - upgrade to libev-4.00.
 
 TODO: make fontCount dependent on ENABLE_256... in an INTELLIGENT way
+       - searchable-scrollback no longer ignores the first line
+         (Emanuele Giaquinta).
        - add support for 256 colors.
        - add support for grabbing the clipboard selection and extend
          selection{_clear,_grab,} perl bindings to optionally work

diff --git a/src/perl/searchable-scrollback b/src/perl/searchable-scrollback
index 238189b5fcf2a4fe0fe9e99aefb4b04696dd00b7..569a42fbe779894b7e5f1a3e96b5798a1c83383e 100644 (file)
--- a/src/perl/searchable-scrollback
+++ b/src/perl/searchable-scrollback
@@ -82,7 +82,7 @@ sub search {
 
    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;