--- rxvt-unicode/src/perl/selection 2012/06/10 17:31:53 1.55 +++ rxvt-unicode/src/perl/selection 2014/05/17 13:38:23 1.58 @@ -1,10 +1,10 @@ #! perl -#:META:X_RESOURCE:%.pattern-0:string:first selection pattern +#:META:RESOURCE:%.pattern-0:string:first selection pattern =head1 NAME - selection - more intelligent selection (enabled by default) +selection - more intelligent selection (enabled by default) =head1 DESCRIPTION @@ -64,6 +64,10 @@ () } +sub on_keyboard_dispatch { + &on_user_command; +} + sub on_init { my ($self) = @_;