--- rxvt-unicode/src/perl/searchable-scrollback 2012/09/04 22:41:12 1.30 +++ rxvt-unicode/src/perl/searchable-scrollback 2014/05/17 17:12:29 1.34 @@ -2,7 +2,8 @@ # this extension implements scrollback buffer search -#:META:X_RESOURCE:%:string:activation hotkey keysym +#:META:RESOURCE:%:string:activation hotkey keysym +#:META:BINDING:M-s:start =head1 NAME @@ -34,20 +35,21 @@ sub on_init { my ($self) = @_; + # only for backwards compatibility my $hotkey = $self->{argv}[0] || $self->x_resource ("%") - || "M-s"; + || return; - $self->parse_keysym ($hotkey, "perl:searchable-scrollback:start") + $self->bind_action ($hotkey, "searchable-scrollback:start") # ugh or warn "unable to register '$hotkey' as scrollback search start hotkey\n"; () } -sub on_user_command { - my ($self, $cmd) = @_; +sub on_action { + my ($self, $action) = @_; - $cmd eq "searchable-scrollback:start" + $action eq "start" and $self->enter; ()