ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/selection
(Generate patch)

Comparing rxvt-unicode/src/perl/selection (file contents):
Revision 1.60 by sf-exg, Sat May 31 08:33:47 2014 UTC vs.
Revision 1.61 by sf-exg, Mon Jun 9 19:54:26 2014 UTC

… …
54 URxvt.keysym.C-M-r: selection:rot13 54 URxvt.keysym.C-M-r: selection:rot13
55 55
56=back 56=back
57 57
58=cut 58=cut
59
60sub on_user_command {
61 my ($self, $cmd) = @_;
62
63 $cmd eq "selection:rot13"
64 and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection);
65
66 ()
67}
59 68
60sub on_action { 69sub on_action {
61 my ($self, $action) = @_; 70 my ($self, $action) = @_;
62 71
63 $action eq "rot13" 72 $action eq "rot13"

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines