repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: f7fd9ed575e15d24d6ebb91c68e6a130cedf0d9e:
path_to: 
revision_to: 
git.thebackupbox.net
rxvt-unicode-sixel
git clone git://git.thebackupbox.net/rxvt-unicode-sixel
commit f7fd9ed575e15d24d6ebb91c68e6a130cedf0d9e
Author: Emanuele Giaquinta 
Date:   Thu Apr 1 18:36:23 2010 +0000

    Fix searchable-scrollback to not ignore the first line.

diff --git a/Changes b/Changes
index 198996323057cbee48dfeaa7bb4f25b860b55c10..
index ..e2ae8c5b864a9722d7550f034facb4e32dfe0ffd 100644
--- 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..
index ..569a42fbe779894b7e5f1a3e96b5798a1c83383e 100644
--- 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;

-----END OF PAGE-----