diff options
-rw-r--r-- | lib/Language/TECO.pm | 15 |
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); |