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

keyboard-select: correctly close search field

Browse Source
This commit is contained in:
Bert 2010-09-13 23:23:45 +02:00
parent 98f1873fc6
commit b2b85e0826
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
keyboard-select
View File

@ -1,7 +1,7 @@
#! perl -w
# Author: Bert Muennich
# Website: http://www.github.com/muennich/urxvt-perls
# Version: git-20100912
# Version: git-20100913
# License: GPLv2
# Use keyboard shortcuts to select and copy text.
@ -70,11 +70,11 @@ sub key_press {
if ($txt) {
$self->{pattern} = ($txt =~ m/[[:upper:]]/) ? qr/\Q$txt\E/ :
qr/\Q$txt\E/i;
} else {
delete $self->{pattern} if $self->{pattern};
} elsif ($self->{pattern}) {
delete $self->{pattern};
}
$self->{search} = '';
find_next($self);
status_area($self) unless find_next($self);
} elsif (length($char) > 0) {
$self->{search} .= $self->locale_decode($char);
status_area($self);
@ -321,7 +321,7 @@ sub find_next {
$self->want_refresh();
}
()
return $found;
}