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

Comparing rxvt-unicode/src/perl/selection-pastebin (file contents):
Revision 1.25 by sf-exg, Sat May 31 08:33:47 2014 UTC vs.
Revision 1.26 by sf-exg, Mon Jun 9 19:54:26 2014 UTC

… …
113 }; 113 };
114 114
115 () 115 ()
116} 116}
117 117
118sub on_user_command {
119 my ($self, $cmd) = @_;
120
121 if ($cmd eq "selection-pastebin:remote-pastebin") {
122 $self->upload_paste;
123 }
124
125 ()
126}
127
118sub on_action { 128sub on_action {
119 my ($self, $action) = @_; 129 my ($self, $action) = @_;
120 130
121 $action eq "remote-pastebin" 131 $action eq "remote-pastebin"
122 and $self->upload_paste; 132 and $self->upload_paste;

Diff Legend

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