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

Comparing rxvt-unicode/src/perl/mark-urls (file contents):
Revision 1.7 by root, Thu Jan 12 02:20:56 2006 UTC vs.
Revision 1.9 by root, Thu Jan 19 09:47:15 2006 UTC

8 )}x; 8 )}x;
9 9
10sub on_start { 10sub on_start {
11 my ($self) = @_; 11 my ($self) = @_;
12 12
13 $self->{browser} = urxvt::untaint $self->x_resource ("urlLauncher") || "x-www-browser"; 13 $self->{browser} = $self->x_resource ("urlLauncher") || "x-www-browser";
14 14
15 () 15 ()
16} 16}
17 17
18sub on_line_update { 18sub on_line_update {
49 | urxvt::ShiftMask | urxvt::ControlMask; 49 | urxvt::ShiftMask | urxvt::ControlMask;
50 50
51 if ($event->{button} == 2 && ($event->{state} & $mask) == 0) { 51 if ($event->{button} == 2 && ($event->{state} & $mask) == 0) {
52 while ($text =~ /$url/g) { 52 while ($text =~ /$url/g) {
53 if ($-[1] <= $col && $+[1] >= $col) { 53 if ($-[1] <= $col && $+[1] >= $col) {
54 urxvt::exec_async $self->{browser}, $1; 54 $self->exec_async ($self->{browser}, $1);
55 return 1; 55 return 1;
56 } 56 }
57 } 57 }
58 } 58 }
59 59

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines