--- rxvt-unicode/src/perl/readline 2006/02/20 20:48:11 1.10 +++ rxvt-unicode/src/perl/readline 2011/11/20 11:09:22 1.11 @@ -24,7 +24,7 @@ my $mask = $self->ModLevel3Mask | $self->ModMetaMask | urxvt::ShiftMask | urxvt::ControlMask; - + ($event->{state} & $mask) == urxvt::ShiftMask or return;