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

Abort keyboard & url selection modes with Ctrl-c; fixes issue #46

Browse Source
This commit is contained in:
Bert Münnich 2014-03-20 21:44:28 +01:00
parent 6481d92137
commit e54f4c238e
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
keyboard-select
View File

@ -59,7 +59,9 @@ sub key_press {
my ($self, $event, $keysym, $char) = @_; my ($self, $event, $keysym, $char) = @_;
my $key = chr($keysym); my $key = chr($keysym);
if ($self->{search}) { if (lc($key) eq 'c' && $event->{state} & urxvt::ControlMask) {
deactivate($self);
} elsif ($self->{search}) {
if ($keysym == 0xff1b) { if ($keysym == 0xff1b) {
if ($self->{search_mode}) { if ($self->{search_mode}) {
deactivate($self); deactivate($self);

3
url-select
View File

@ -122,7 +122,8 @@ sub key_press {
my ($self, $event, $keysym) = @_; my ($self, $event, $keysym) = @_;
my $char = chr($keysym); my $char = chr($keysym);
if ($keysym == 0xff1b || lc($char) eq 'q') { if ($keysym == 0xff1b || lc($char) eq 'q' ||
(lc($char) eq 'c' && $event->{state} & urxvt::ControlMask)) {
deactivate($self); deactivate($self);
} elsif ($keysym == 0xff0d || $char eq 'o') { } elsif ($keysym == 0xff0d || $char eq 'o') {
$self->exec_async(@{$self->{browser}}, ${$self->{found}[$self->{n}]}[4]); $self->exec_async(@{$self->{browser}}, ${$self->{found}[$self->{n}]}[4]);