From 68c63e667ddf2b2520968e4c33302bcf909be0eb Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 01:08:53 -0500
Subject: add read-only accessors for the current buffer and position

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

diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm
index 0f3c966..cd48bde 100644
--- a/lib/Language/TECO.pm
+++ b/lib/Language/TECO.pm
@@ -13,6 +13,9 @@ sub new {
     return $object;
 }
 
+sub buffer  { shift->{buffer}->{buffer}  }
+sub pointer { shift->{buffer}->{pointer} }
+
 sub reset {
     my $self = shift;
 
-- 
cgit v1.2.3-54-g00ecf