From 57e912eefc5bebd9b0f9f4dcaa53689620965f8d Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 24 May 2008 17:20:33 -0500
Subject: make indexing off the ends of the buffer do the right thing

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

diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm
index 5d45397..e2b7945 100644
--- a/lib/Language/TECO/Buffer.pm
+++ b/lib/Language/TECO/Buffer.pm
@@ -17,8 +17,8 @@ sub endpos { length shift->{buffer} }
 sub buffer {
     my $self = shift;
     my ($start, $end) = @_;
-    $start = 0 unless defined $start;
-    $end = $self->endpos unless defined $end;
+    $start = 0 if !defined $start || $start < 0;
+    $end = $self->endpos if !defined $end || $end > $self->endpos;
     ($start, $end) = ($end, $start) if $start > $end;
     return substr $self->{buffer}, $start, $end - $start;
 }
-- 
cgit v1.2.3-54-g00ecf