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

Comparing rxvt-unicode/src/perl/searchable-scrollback (file contents):
Revision 1.44 by sf-exg, Tue Oct 24 20:12:08 2017 UTC vs.
Revision 1.46 by root, Wed Jun 23 12:45:30 2021 UTC

4 4
5#:META:RESOURCE:%:string:activation hotkey keysym 5#:META:RESOURCE:%:string:activation hotkey keysym
6 6
7=head1 NAME 7=head1 NAME
8 8
9searchable-scrollback - incremental scrollback search (enabled by default) 9searchable-scrollback - incremental scrollback search
10 10
11=head1 DESCRIPTION 11=head1 DESCRIPTION
12 12
13Adds regex search functionality to the scrollback buffer, triggered by 13Adds regex search functionality to the scrollback buffer, triggered by
14the C<searchable-scrollback:start> action (bound to C<M-s> by 14the C<searchable-scrollback:start> action (bound to C<M-s> by
242 242
243sub tt_write { 243sub tt_write {
244 my ($self, $data) = @_; 244 my ($self, $data) = @_;
245 245
246 $self->{search} .= $self->locale_decode ($data); 246 $self->{search} .= $self->locale_decode ($data);
247 $self->{search} =~ s/\e\[20[01]~//g;
247 248
248 $self->{search} =~ s/^\(\?i\)// 249 $self->{search} =~ s/^\(\?i\)//
249 if $self->{search} =~ /^\(.*[[:upper:]]/; 250 if $self->{search} =~ /^\(.*[[:upper:]]/;
250 251
251 delete $self->{found}; 252 delete $self->{found};

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines