--- rxvt-unicode/src/perl/selection	2012/09/04 22:41:12	1.56
+++ rxvt-unicode/src/perl/selection	2014/05/17 13:38:23	1.58
@@ -1,6 +1,6 @@
 #! perl
 
-#:META:X_RESOURCE:%.pattern-0:string:first selection pattern
+#:META:RESOURCE:%.pattern-0:string:first selection pattern
 
 =head1 NAME
 
@@ -64,6 +64,10 @@
    ()
 }
 
+sub on_keyboard_dispatch {
+   &on_user_command;
+}
+
 sub on_init {
    my ($self) = @_;