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

commit 2c08b36d6d6aaf23dd57377bc6aa526399f5d25b
Author: Marc Lehmann 
Date:   Mon Jan 9 23:03:13 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
@@ -61,7 +61,7 @@ sub leave {
 sub idle {
    my ($self) = @_;

-   $self->msg ("scrollback search, escape=exit, enter=accept, /=start search, n=next, p=previous");
+   $self->msg ("scrollback search, escape=exit, enter=accept, /=start search, n=next, p=previous, G=bottom");

    delete $self->{in_search};
 }
@@ -94,7 +94,7 @@ sub search {
    }

    $self->msg ("enter/type/backspace: /$self->{search}_"
-               . ($self->{found} ? " (not found)" : ""));
+               . ($self->{found} ? "" : " (not found)"));
    $self->scr_bell unless $self->{found};
 }

@@ -141,9 +141,12 @@ sub key_press {
       } elsif ($string eq "/") {
          $self->{in_search} = $self->view_start;
          $self->search;
+      } elsif ($string eq "G") {
+         $self->view_start (0);
       } elsif ($string eq "n") {
          $self->search;
       } elsif ($string eq "p") {
+         # TODO
       } elsif ($string ne "") {
          $self->scr_bell;
       }

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