From 173130b8c5cee06e63fd6507dec066345db25f69 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 24 May 2008 17:14:01 -0500
Subject: refactor the delete method of the buffer a bit

---
 lib/Language/TECO.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Language/TECO.pm')

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