applications/urxvt-perls
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

url-select: bug-fix: ignore all unused keys

Browse Source
This commit is contained in:
Bert 2010-08-04 11:44:33 +02:00
parent cee2040344
commit 412f705af7
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
url-select
View File

@ -228,6 +228,11 @@ sub refresh {
}
sub tt_write {
return 1;
}
sub activate {
my ($self) = @_;
@ -242,6 +247,7 @@ sub activate {
key_press => \&key_press,
refresh_begin => \&refresh,
refresh_end => \&refresh,
tt_write => \&tt_write,
);
()
@ -251,7 +257,7 @@ sub activate {
sub deactivate {
my ($self) = @_;
$self->disable("key_press", "refresh_begin", "refresh_end");
$self->disable("key_press", "refresh_begin", "refresh_end", "tt_write");
$self->view_start($self->{view_start});
$self->pty_ev_events($self->{pty_ev_events});