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.58 by root, Sat May 17 13:38:23 2014 UTC vs.
Revision 1.59 by sf-exg, Sat May 17 15:48:29 2014 UTC

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

Diff Legend

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