diff options
author | root <root> | 2020-02-06 23:41:15 +0000 |
---|---|---|
committer | root <root> | 2020-02-06 23:41:15 +0000 |
commit | 1fa0adf9283959d5433c1547418356a41285be9f (patch) | |
tree | 9bb7e59592d7b03f7b62d8ff143fc23fc3a82017 | |
parent | abbf50e9a069f38aaa4e0405c8187548afdc5b4e (diff) |
*** empty log message ***
-rw-r--r-- | src/perl/confirm-paste | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/perl/confirm-paste b/src/perl/confirm-paste index 4b45238..eab281a 100644 --- a/src/perl/confirm-paste +++ b/src/perl/confirm-paste @@ -21,14 +21,15 @@ sub msg { sub on_tt_paste { my ($self, $str) = @_; - my $count = ($str =~ tr/\012\015//); + my $count = ($str =~ tr/[\x00-\x1f\x80-\x9f]//); return unless $count; $self->{paste} = \$str; - $self->msg ("Paste of $count lines, continue? (y/n)"); + $self->msg ("Pasting $count control characters, continue? (y/n)"); my $preview = substr $self->locale_decode ($str), 0, $self->ncol; $preview =~ s/\n/\\n/g; + $preview =~ s/([\x00-\x1f\x80-\x9f])/sprintf "\\x%02x", ord $1/ge; $self->{overlay}->set (0, 1, $self->special_encode ($preview)); $self->enable (key_press => \&key_press); |