--- rxvt-unicode/src/perl/selection	2006/01/23 23:13:03	1.34
+++ rxvt-unicode/src/perl/selection	2006/01/25 13:24:45	1.35
@@ -12,6 +12,11 @@
 sub on_init {
    my ($self) = @_;
 
+   if (defined (my $res = $self->resource ("cutchars"))) {
+      $res = $self->locale_decode ($res);
+      push @{ $self->{patterns} }, qr{\G [\Q$res\E[:space:]]* ([^\Q$res\E[:space:]]+) }x;
+   }
+
    for (my $idx = 0; defined (my $res = $self->x_resource ("selection.pattern-$idx")); $idx++) {
       $res = $self->locale_decode ($res);
       utf8::encode $res;