[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/searchable-scrollback

Comparing rxvt-unicode/src/perl/searchable-scrollback (file contents):
Revision 1.38 by sf-exg, Sun Jun 8 19:40:20 2014 UTC vs.
Revision 1.43 by root, Fri Dec 26 19:19:30 2014 UTC

 #! perl
 # this extension implements scrollback buffer search
 #:META:RESOURCE:%:string:activation hotkey keysym
-#:META:BINDING:M-s:start
 =head1 NAME
 searchable-scrollback - incremental scrollback search (enabled by default)
    my ($self) = @_;
    # only for backwards compatibility
    my $hotkey = $self->{argv}[0]
                 || $self->x_resource ("%")
-                || return;
+                || "M-s";
-   $self->bind_action ($hotkey, "searchable-scrollback:start") # ugh
+   $self->bind_action ($hotkey, "%:start")
       or warn "unable to register '$hotkey' as scrollback search start hotkey\n";
+   ()
+}
+sub on_user_command {
+   my ($self, $cmd) = @_;
+   $cmd eq "searchable-scrollback:start"
+      and $self->enter;
    ()
 }
 sub on_action {
    $self->pty_ev_events ($self->{pty_ev_events});
    delete $self->{manpage_overlay};
    delete $self->{overlay};
    delete $self->{search};
+   delete $self->{found};
 }
 sub idle {
    my ($self) = @_;
             } while $text =~ /$re/g;
             $self->{row} = $row;
             $self->view_start (List::Util::min 0, $row - ($self->nrow >> 1));
             $self->want_refresh;
-            last;
+            return;
          }
          $row = $dir < 0 ? $line->beg - 1 : $line->end + 1;
       }
    }
-   $self->scr_bell unless $self->{found};
+   $self->scr_bell;
 }
 sub refresh {
    my ($self) = @_;

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