--- rxvt-unicode/src/perl/selection	2006/01/12 10:21:50	1.22
+++ rxvt-unicode/src/perl/selection	2006/01/12 12:05:28	1.23
@@ -9,6 +9,17 @@
    ()
 }
 
+sub on_init {
+   my ($self) = @_;
+
+   for (my $idx = 0; defined (my $res = $self->x_resource ("selection.pattern-$idx")); $idx++) {
+      no re 'eval'; # just to be sure
+      push @{ $self->{patterns} }, qr/$res/;
+   }
+
+   ()
+}
+
 # "find interetsing things"-patterns
 my @mark_patterns = (
    qr{([[:word:]]+)},
@@ -55,7 +66,7 @@
 
    my @matches;
 
-   for my $regex (@mark_patterns) {
+   for my $regex (@mark_patterns, @{ $self->{patterns} }) {
       while ($text =~ /$regex/g) {
          if ($-[1] <= $markofs and $markofs <= $+[1]) {
             my $ofs = $-[1];