ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/searchable-scrollback
(Generate patch)

Comparing rxvt-unicode/src/perl/searchable-scrollback (file contents):
Revision 1.21 by root, Wed Jan 25 15:33:43 2006 UTC vs.
Revision 1.22 by root, Thu Jul 6 18:56:10 2006 UTC

37 return if $self->{overlay}; 37 return if $self->{overlay};
38 38
39 $self->{view_start} = $self->view_start; 39 $self->{view_start} = $self->view_start;
40 $self->{pty_ev_events} = $self->pty_ev_events (urxvt::EVENT_NONE); 40 $self->{pty_ev_events} = $self->pty_ev_events (urxvt::EVENT_NONE);
41 $self->{row} = $self->nrow - 1; 41 $self->{row} = $self->nrow - 1;
42 $self->{search} = "(?i)";
42 43
43 $self->enable ( 44 $self->enable (
44 key_press => \&key_press, 45 key_press => \&key_press,
45 tt_write => \&tt_write, 46 tt_write => \&tt_write,
46 refresh_begin => \&refresh, 47 refresh_begin => \&refresh,
156 157
157sub tt_write { 158sub tt_write {
158 my ($self, $data) = @_; 159 my ($self, $data) = @_;
159 160
160 $self->{search} .= $self->locale_decode ($data); 161 $self->{search} .= $self->locale_decode ($data);
162
163 $self->{search} =~ s/^\(\?i\)//
164 if $self->{search} =~ /^\(.*[[:upper:]]/;
165
161 $self->search (-1); 166 $self->search (-1);
162 $self->idle; 167 $self->idle;
163 168
164 1 169 1
165} 170}

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines