implement the k command

1 files changed, 15 insertions, 0 deletions

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);