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.55 by root, Sun Jun 10 17:31:53 2012 UTC vs.
Revision 1.57 by root, Sat Apr 26 20:51:12 2014 UTC

2 2
3#:META:X_RESOURCE:%.pattern-0:string:first selection pattern 3#:META:X_RESOURCE:%.pattern-0:string:first selection pattern
4 4
5=head1 NAME 5=head1 NAME
6 6
7 selection - more intelligent selection (enabled by default) 7selection - more intelligent selection (enabled by default)
8 8
9=head1 DESCRIPTION 9=head1 DESCRIPTION
10 10
11This extension tries to be more intelligent when the user extends 11This extension tries to be more intelligent when the user extends
12selections (double-click and further clicks). Right now, it tries to 12selections (double-click and further clicks). Right now, it tries to
60 60
61 $cmd eq "selection:rot13" 61 $cmd eq "selection: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;
65} 69}
66 70
67sub on_init { 71sub on_init {
68 my ($self) = @_; 72 my ($self) = @_;
69 73

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines