diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 15:04:11 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-22 15:04:11 -0500 |
| commit | d466b70df09f9110d412717aad0ff21c34677e89 (patch) | |
| tree | 65f47170bc8c59d1a05ab993309afc0c4a340bc3 | |
| parent | 0fe9d49557faad91b836f68d80b7abc856cdfba2 (diff) | |
| download | language-teco-d466b70df09f9110d412717aad0ff21c34677e89.tar.gz language-teco-d466b70df09f9110d412717aad0ff21c34677e89.zip | |
implement the l command
| -rw-r--r-- | lib/Language/TECO.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index 33da8b3..7d2d63e 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -195,6 +195,15 @@ sub execute { $self->push_cmd('c'); redo; } + elsif (/l/i) { + $self->cmd(sub { + my $self = shift; + if (!defined $self->num) { + $self->num(1); + } + $self->{buffer}->set(scalar $self->{buffer}->get_line_offset($self->num)); + }); + } elsif (/t/i) { $self->cmd(sub { my $self = shift; |