| … | … | ||
|---|---|---|---|
| 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 |