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