--- rxvt-unicode/src/perl/selection	2014/05/17 13:38:23	1.58
+++ rxvt-unicode/src/perl/selection	2014/05/17 15:48:29	1.59
@@ -55,19 +55,15 @@
 
 =cut
 
-sub on_user_command {
-   my ($self, $cmd) = @_;
+sub on_action {
+   my ($self, $action) = @_;
 
-   $cmd eq "selection:rot13"
+   $action eq "rot13"
       and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection);
 
    ()
 }
 
-sub on_keyboard_dispatch {
-   &on_user_command;
-}
-
 sub on_init {
    my ($self) = @_;