--- rxvt-unicode/src/perl/searchable-scrollback	2007/11/11 04:08:00	1.24
+++ rxvt-unicode/src/perl/searchable-scrollback	2012/06/10 13:58:06	1.28
@@ -2,11 +2,13 @@
 
 # this extension implements scrollback buffer search
 
+#:META:X_RESOURCE:%:string:activation hotkey keysym
+
 sub on_init {
    my ($self) = @_;
 
    my $hotkey = $self->{argv}[0]
-                || $self->x_resource ("searchable-scrollback")
+                || $self->x_resource ("%")
                 || "M-s";
 
    $self->parse_keysym ($hotkey, "perl:searchable-scrollback:start")
@@ -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;