From 3e3f3107aefe55f8f80b44a172f01e7f651cf0cf Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 14:27:34 -0500
Subject: implement the k command

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

diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm
index ff11e4f..6a9ffb0 100644
--- a/lib/Language/TECO.pm
+++ b/lib/Language/TECO.pm
@@ -154,6 +154,21 @@ sub execute {
                 $self->{buffer}->delete($self->num);
             });
         }
+        elsif (/k/i) {
+            $self->cmd(sub {
+                my $self = shift;
+                if (defined $self->{n2}) {
+                    $self->{buffer}->delete(($self->num));
+                }
+                else {
+                    if (!defined $self->num) {
+                        $self->num(1);
+                    }
+                    my $num = $self->num;
+                    $self->{buffer}->delete($self->{buffer}->get_line_offset($num));
+                }
+            });
+        }
         elsif (/j/i) {
             if (!defined $self->num) {
                 $self->num(0);
-- 
cgit v1.2.3-54-g00ecf