From bdc063779a1387312b7d4020123ce4a319061594 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 11:34:31 -0500
Subject: add error handling for the delete command

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

diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm
index 9ed6d44..bc0f7c8 100644
--- a/lib/Language/TECO/Buffer.pm
+++ b/lib/Language/TECO/Buffer.pm
@@ -34,8 +34,10 @@ sub delete {
     my $length = shift;
     if ($length < 0) {
         $length = -$length;
-        $self->{pointer} -= $length;
+        $self->offset(-$length);
     }
+    die "Pointer off page"
+        if $self->{pointer} + $length > length $self->{buffer};
     substr($self->{buffer}, $self->{pointer}, $length) = '';
 }
 
-- 
cgit v1.2.3-54-g00ecf