--- rxvt-unicode/src/perl/searchable-scrollback	2006/01/15 06:02:41	1.20
+++ rxvt-unicode/src/perl/searchable-scrollback	2006/07/06 18:56:10	1.22
@@ -15,7 +15,7 @@
    ()
 }
 
-sub on_keyboard_command {
+sub on_user_command {
    my ($self, $cmd) = @_;
 
    $cmd eq "searchable-scrollback:start"
@@ -39,6 +39,7 @@
    $self->{view_start} = $self->view_start;
    $self->{pty_ev_events} = $self->pty_ev_events (urxvt::EVENT_NONE);
    $self->{row} = $self->nrow - 1;
+   $self->{search} = "(?i)";
 
    $self->enable (
       key_press     => \&key_press,
@@ -158,6 +159,10 @@
    my ($self, $data) = @_;
 
    $self->{search} .= $self->locale_decode ($data);
+
+   $self->{search} =~ s/^\(\?i\)//
+      if $self->{search} =~ /^\(.*[[:upper:]]/;
+   
    $self->search (-1);
    $self->idle;