… | … | ||
---|---|---|---|
44 | my $orig = $_; | 44 | my $orig = $_; |
45 | $cb->(); | 45 | $cb->(); |
46 | 46 | ||
47 | if ($orig ne $_) { | 47 | if ($orig ne $_) { |
48 | $self->selection ($_); | 48 | $self->selection ($_); |
49 | s/[\x00-\x1f\x80-\x9f]/ยท/g; | ||
49 | $self->msg ("Selection replaced by", $_); | 50 | $self->msg ("Selection replaced by", $_); |
50 | } | 51 | } |
51 | } | 52 | } |
52 | }); | 53 | }); |
53 | }; | 54 | }; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |