--- rxvt-unicode/src/perl/matcher 2007/01/09 16:18:56 1.2 +++ rxvt-unicode/src/perl/matcher 2007/06/10 23:42:36 1.4 @@ -17,6 +17,11 @@ if($cmd =~ s/^matcher\b//) { $self->most_recent; } + () +} + +sub most_recent { + my ($self) = shift; my $row = $self->nrow; my @exec; while($row-- > $self->top_row) { @@ -31,14 +36,9 @@ () } -sub most_recent { - my ($self) = shift; - () -} - sub my_resource { my $self = shift; - $self->x_resource("$self->{name}.$_[0]"); + $self->x_resource ("$self->{name}.$_[0]"); } # turn a rendition spec in the resource into a sub that implements it on $_