| … | |
… | |
| 145 | $self->search (+1); |
145 | $self->search (+1); |
| 146 | } elsif ($keysym == 0xff08) { # backspace |
146 | } elsif ($keysym == 0xff08) { # backspace |
| 147 | substr $self->{search}, -1, 1, ""; |
147 | substr $self->{search}, -1, 1, ""; |
| 148 | $self->search; |
148 | $self->search; |
| 149 | $self->idle; |
149 | $self->idle; |
| 150 | } elsif ($string =~ /^[^\x00-\x1f\x80-\xaf]+$/) { |
150 | } elsif ($string !~ /[\x00-\x1f\x80-\xaf]/) { |
| 151 | return; # pass to tt_write |
151 | return; # pass to tt_write |
| 152 | } |
152 | } |
| 153 | |
153 | |
| 154 | 1 |
154 | 1 |
| 155 | } |
155 | } |
