From 57a632fc1003aeab5b8f7c2fc9a5403341bab4a3 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 00:18:48 -0500
Subject: implement the buffer's print method

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

diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm
index 7015fe6..8056391 100644
--- a/lib/Language/TECO/Buffer.pm
+++ b/lib/Language/TECO/Buffer.pm
@@ -41,6 +41,9 @@ sub endpos { length shift->{buffer} }
 sub curpos { shift->{pointer} }
 
 sub print {
+    my $self = shift;
+    my ($start, $end) = @_;
+    print substr $self->{buffer}, $start, $end - $start;
 }
 
 1;
-- 
cgit v1.2.3-54-g00ecf