… | … | ||
---|---|---|---|
242 | 242 | ||
243 | sub tt_write { | 243 | sub tt_write { |
244 | my ($self, $data) = @_; | 244 | my ($self, $data) = @_; |
245 | 245 | ||
246 | $self->{search} .= $self->locale_decode ($data); | 246 | $self->{search} .= $self->locale_decode ($data); |
247 | $self->{search} =~ s/\e\[20[01]~//g; | ||
247 | 248 | ||
248 | $self->{search} =~ s/^\(\?i\)// | 249 | $self->{search} =~ s/^\(\?i\)// |
249 | if $self->{search} =~ /^\(.*[[:upper:]]/; | 250 | if $self->{search} =~ /^\(.*[[:upper:]]/; |
250 | 251 | ||
251 | delete $self->{found}; | 252 | delete $self->{found}; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |