From d0ee4745257b870906c4a357003d90457069a443 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 14:50:08 -0500
Subject: allow passing in two arguments to buffer->delete in order to delete a
 range of characters rather than defaulting to offset from the current
 position

---
 lib/Language/TECO/Buffer.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm
index 65c0e93..ace2e86 100644
--- a/lib/Language/TECO/Buffer.pm
+++ b/lib/Language/TECO/Buffer.pm
@@ -31,7 +31,16 @@ sub insert {
 
 sub delete {
     my $self = shift;
-    my $length = shift;
+    my $length;
+    if (@_ > 1) {
+        my $pos = shift;
+        $self->set($pos);
+        $length = shift() - $pos;
+    }
+    else {
+        $length = shift;
+    }
+
     if ($length < 0) {
         $length = -$length;
         $self->offset(-$length);
-- 
cgit v1.2.3-54-g00ecf