ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/readline
(Generate patch)

Comparing rxvt-unicode/src/perl/readline (file contents):
Revision 1.1 by root, Fri Jan 20 22:05:41 2006 UTC vs.
Revision 1.2 by root, Fri Jan 20 22:07:08 2006 UTC

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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines