… | … | ||
---|---|---|---|
11 | if ($ofs >= 0 && $ofs < $line->l) { | 11 | if ($ofs >= 0 && $ofs < $line->l) { |
12 | my $diff = $ofs - $cur; | 12 | my $diff = $ofs - $cur; |
13 | 13 | ||
14 | $self->tt_write ($diff < 0 ? "\x1b[D" x -$diff | 14 | $self->tt_write ($diff < 0 ? "\x1b[D" x -$diff |
15 | : "\x1b[C" x $diff); | 15 | : "\x1b[C" x $diff); |
16 | |||
17 | return 1; | ||
18 | } | 16 | } |
19 | 17 | ||
20 | () | 18 | () |
21 | } | 19 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |