--- rxvt-unicode/src/perl/matcher	2014/06/12 12:19:09	1.23
+++ rxvt-unicode/src/perl/matcher	2014/06/13 21:49:19	1.25
@@ -113,7 +113,7 @@
    my $row = $self->nrow - 1;
    while ($row >= 0 && @{ $self->{matches} } < 10) {
       my $line = $self->line ($row);
-      my @matches = $self->find_matches ($row, 0);
+      my @matches = $self->find_matches ($row);
 
       for (sort { $b->[0] <=> $a->[0] } @matches) {
          shift @$_;
@@ -261,6 +261,7 @@
    my ($self, $row, $col) = @_;
    my $line = $self->line ($row);
    my $text = $line->t;
+   my $off = $line->offset_of ($row, $col) if $col;
 
    my @matches;
    for my $matcher (@{$self->{matchers}}) {
@@ -271,7 +272,7 @@
          my @end = @+;
          my @exec;
 
-         if (!defined($col) || ($-[0] <= $col && $+[0] >= $col)) {
+         if (!defined($off) || ($-[0] <= $off && $+[0] >= $off)) {
             if ($launcher !~ /\$/) {
                @exec = ($launcher, $match);
             } else {