From 8d9938aa3f27eacb9840c99e518e9c29c7015046 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 24 May 2008 13:13:50 -0500
Subject: implement =

---
 lib/Language/TECO.pm | 4 ++++
 1 file changed, 4 insertions(+)

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;
-- 
cgit v1.2.3