diff options
| -rw-r--r-- | lib/Language/TECO.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Language/TECO.pm b/lib/Language/TECO.pm index 04b0ccf..587d641 100644 --- a/lib/Language/TECO.pm +++ b/lib/Language/TECO.pm @@ -116,6 +116,12 @@ sub execute { elsif (/,/) { $self->{current_num} = 'n2'; } + elsif (/:/) { + $self->{colon} = 1; + } + elsif (/@/) { + $self->{at} = 1; + } elsif (/i/i) { if (defined $self->num) { $self->cmd(sub { |