summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjluehrs2 <jluehrs2@uiuc.edu>2008-05-24 13:13:50 -0500
committerjluehrs2 <jluehrs2@uiuc.edu>2008-05-24 13:13:50 -0500
commit8d9938aa3f27eacb9840c99e518e9c29c7015046 (patch)
tree3338e7c516a9671f429cfb45bf011ca66c4d5b61
parent9756bb8c0d3f80743f245b6fcd4d77111f254d94 (diff)
downloadlanguage-teco-8d9938aa3f27eacb9840c99e518e9c29c7015046.tar.gz
language-teco-8d9938aa3f27eacb9840c99e518e9c29c7015046.zip
implement =
-rw-r--r--lib/Language/TECO.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm
index 1a20d54..0c62a3c 100644
--- a/lib/Language/TECO.pm
+++ b/lib/Language/TECO.pm
@@ -210,6 +210,10 @@ sub execute {
$self->buf->set(scalar $self->buf->get_line_offset($self->num));
});
}
+ elsif (/=/i) {
+ my $fmt = ($self->{command} =~ s/^=//) ? "%o%s" : "%d%s";
+ $ret .= sprintf $fmt, $self->num, $self->colon ? "" : "\n";
+ }
elsif (/t/i) {
$self->cmd(sub {
my $self = shift;