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.3 by elmex, Mon Jan 2 21:36:03 2006 UTC vs.
Revision 1.4 by root, Mon Jan 2 21:36:20 2006 UTC

1#! perl
2
1sub on_keyboard_command { 3sub on_keyboard_command {
2 my ($term, $cmd) = @_; 4 my ($term, $cmd) = @_;
3 5
4 $cmd eq "selection:rot13" 6 $cmd eq "selection:rot13"
5 and $term->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $term->selection); 7 and $term->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $term->selection);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines