summaryrefslogtreecommitdiffstats
path: root/lib/Language/TECO.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Language/TECO.pm')
-rw-r--r--lib/Language/TECO.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm
index 7d2d63e..4aee5a3 100644
--- a/lib/Language/TECO.pm
+++ b/lib/Language/TECO.pm
@@ -90,6 +90,7 @@ sub push_cmd {
sub execute {
my $self = shift;
$self->{command} = shift;
+ my $ret = '';
while ($self->{command}) {
$_ = substr($self->{command}, 0, 1, '');
@@ -215,11 +216,13 @@ sub execute {
$self->num(1);
}
my $num = $self->num;
- $self->{buffer}->print($self->{buffer}->get_line_offset($num));
+ $ret .= $self->{buffer}->print($self->{buffer}->get_line_offset($num));
}
});
}
}
+
+ return $ret;
}
=head1 NAME