--- rxvt-unicode/src/perl/selection 2006/01/12 23:30:51 1.25 +++ rxvt-unicode/src/perl/selection 2006/01/15 05:14:12 1.26 @@ -14,6 +14,7 @@ for (my $idx = 0; defined (my $res = $self->x_resource ("selection.pattern-$idx")); $idx++) { no re 'eval'; # just to be sure + $res = utf8::encode $self->locale_decode ($res); push @{ $self->{patterns} }, qr/$res/; } @@ -67,6 +68,12 @@ my @matches; + # not doing matches in unicode mode helps speed + # enourmously here. working in utf-8 should be + # equivalent due to the magic of utf-8 encoding. + utf8::encode $text; + study $text; # _really_ helps, too :) + for my $regex (@mark_patterns, @{ $self->{patterns} }) { while ($text =~ /$regex/g) { if ($-[1] <= $markofs and $markofs <= $+[1]) {