From 96f22fd05b38053c17dc30c46d2d6d22e8b3e057 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 01:07:52 -0500
Subject: optionally initialize the buffer with an argument passed to the
 constructor

---
 lib/Language/TECO.pm        | 3 ++-
 lib/Language/TECO/Buffer.pm | 5 ++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm
index f2fea09..0f3c966 100644
--- a/lib/Language/TECO.pm
+++ b/lib/Language/TECO.pm
@@ -6,7 +6,8 @@ use Language::TECO::Buffer;
 
 sub new {
     my $class = shift;
-    my $object = { buffer => Language::TECO::Buffer->new };
+    my $initial_buffer = shift;
+    my $object = { buffer => Language::TECO::Buffer->new($initial_buffer) };
     bless $object, $class;
     $object->reset;
     return $object;
diff --git a/lib/Language/TECO/Buffer.pm b/lib/Language/TECO/Buffer.pm
index 8056391..47c65cb 100644
--- a/lib/Language/TECO/Buffer.pm
+++ b/lib/Language/TECO/Buffer.pm
@@ -4,7 +4,10 @@ use warnings;
 package Language::TECO::Buffer;
 
 sub new {
-    return bless { buffer => '', pointer => 0 }, shift;
+    my $class = shift;
+    my $initial_buffer = shift;
+    $initial_buffer = '' unless defined $initial_buffer;
+    return bless { buffer => $initial_buffer, pointer => 0 }, $class;
 }
 
 sub set {
-- 
cgit v1.2.3-54-g00ecf