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.1 by elmex, Mon Jan 2 21:33:25 2006 UTC vs.
Revision 1.7 by root, Tue Jan 3 19:42:53 2006 UTC

1#! perl
2
1sub on_keyboard_command { 3sub on_keyboard_command {
2 my ($term, $cmd) = @_; 4 my ($self, $cmd) = @_;
5
3 $cmd eq "selection:rot13" 6 $cmd eq "selection:rot13"
4 and $term->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $term->selection); 7 and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection);
8
9 ()
5} 10}
11
12sub on_sel_extend {
13 my ($self) = @_;
14 warn $self->selection;
15 ()
16}

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines