From d466b70df09f9110d412717aad0ff21c34677e89 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 15:04:11 -0500
Subject: implement the l command

---
 lib/Language/TECO.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

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;
-- 
cgit v1.2.3-54-g00ecf