--- rxvt-unicode/src/perl/selection	2014/05/31 08:33:47	1.60
+++ rxvt-unicode/src/perl/selection	2014/06/09 19:54:26	1.61
@@ -57,6 +57,15 @@
 
 =cut
 
+sub on_user_command {
+   my ($self, $cmd) = @_;
+
+   $cmd eq "selection:rot13"
+      and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection);
+
+   ()
+}
+
 sub on_action {
    my ($self, $action) = @_;