diff options
-rw-r--r-- | lib/Language/TECO.pm | 4 |
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; |