repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: bd45542f5fe7d5cc24a21e9e39a424c776b99e44:
path_to: 
revision_to: 

commit bd45542f5fe7d5cc24a21e9e39a424c776b99e44
Author: Marc Lehmann 
Date:   Mon Jan 9 23:18:49 2006 +0000

    *** empty log message ***

diff --git a/src/perl/searchable-scrollback b/src/perl/searchable-scrollback

--- a/src/perl/searchable-scrollback
+++ b/src/perl/searchable-scrollback
@@ -67,9 +67,9 @@ sub idle {
 }

 sub search {
-   my ($self) = @_;
+   my ($self, $offset) = @_;

-   my $row = -$self->view_start;
+   my $row = -$self->view_start + ($self->nrow >> 1) + $offset;

    delete $self->{found};

@@ -103,7 +103,7 @@ sub refresh {

    return unless $self->{found};

-   $self->scr_xor_span (@$_)
+   $self->scr_xor_span (@$_, urxvt::SET_FGCOLOR (urxvt::RS_RVid, 15))
       for @{ $self->{found} };

    ()
@@ -120,11 +120,9 @@ sub key_press {
          $self->idle;
       } elsif ($keysym == 0xff08) {
          substr $self->{search}, -1, 1, "";
-
          $self->search;
       } elsif ($string ne "") {
          $self->{search} .= $string;
-
          $self->search;
       }
    } else {
@@ -144,7 +142,8 @@ sub key_press {
       } elsif ($string eq "G") {
          $self->view_start (0);
       } elsif ($string eq "n") {
-         $self->search;
+         $self->search (-1);
+         $self->idle;
       } elsif ($string eq "p") {
          # TODO
       } elsif ($string ne "") {
diff --git a/src/screen.C b/src/screen.C

--- a/src/screen.C
+++ b/src/screen.C
@@ -2500,11 +2500,11 @@ rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, ren

   for (; row < min (end_row, view_end); row++, col = 0)
     for (rend_t *srp = ROW(row).r; col < ncol; col++)
-      srp[col] ^= RS_RVid;
+      srp[col] ^= rstyle;

   if (row == end_row)
     for (rend_t *srp = ROW(row).r; col < end_col; col++)
-      srp[col] ^= RS_RVid;
+      srp[col] ^= rstyle;
 }

 /* ------------------------------------------------------------------------- */
diff --git a/src/urxvt.pm b/src/urxvt.pm

--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -503,7 +503,7 @@ sub extension_package($) {

       my $source = untaint
          "package $pkg; use strict; use utf8;\n"
-         . "use base urxvt::term::proxy::;\n"
+         . "use base urxvt::term::extension::;\n"
          . "#line 1 \"$path\"\n{\n"
          . (do { local $/; <$fh> })
          . "\n};\n1";
@@ -590,9 +590,9 @@ sub invoke {
    $retval
 }

-# urxvt::term::proxy
+# urxvt::term::extension

-package urxvt::term::proxy;
+package urxvt::term::extension;

 sub enable {
    my ($self, %hook) = @_;

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