diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 17:14:01 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 17:14:01 -0500 |
commit | 173130b8c5cee06e63fd6507dec066345db25f69 (patch) | |
tree | 6cc11e78189f7aae9522c60544bfe3e2e216fc33 /lib/Language/TECO.pm | |
parent | e192b197474d284ce7cc4b8689decce5b4b75c84 (diff) | |
download | language-teco-173130b8c5cee06e63fd6507dec066345db25f69.tar.gz language-teco-173130b8c5cee06e63fd6507dec066345db25f69.zip |
refactor the delete method of the buffer a bit
Diffstat (limited to 'lib/Language/TECO.pm')
-rw-r--r-- | lib/Language/TECO.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index ccca57f..efbb394 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -157,7 +157,7 @@ sub execute { } $self->cmd(sub { my $self = shift; - $self->buf->delete($self->num); + $self->buf->delete($self->pointer, $self->pointer + $self->num); }); } elsif (/k/i) { |