--- rxvt-unicode/src/perl/selection 2006/01/02 21:33:25 1.1 +++ rxvt-unicode/src/perl/selection 2006/01/02 21:35:01 1.2 @@ -1,5 +1,6 @@ sub on_keyboard_command { - my ($term, $cmd) = @_; - $cmd eq "selection:rot13" - and $term->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $term->selection); + my ($term, $cmd) = @_; + + $cmd eq "selection:rot13" + and $term->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $term->selection); }