--- rxvt-unicode/src/perl/searchable-scrollback 2006/01/10 04:26:54 1.10 +++ rxvt-unicode/src/perl/searchable-scrollback 2006/01/11 02:13:56 1.12 @@ -5,7 +5,9 @@ sub on_init { my ($self) = @_; - my $hotkey = $self->{argv}[0] || "M-s"; + my $hotkey = $self->{argv}[0] + || $self->x_resource ("searchable-scrollback") + || "M-s"; $self->parse_keysym ($hotkey, "perl:searchable-scrollback:start") or warn "unable to register '$hotkey' as scrollback search start hotkey\n"; @@ -46,7 +48,7 @@ ); $self->{manpage_overlay} = $self->overlay (0, -2, $self->ncol, 1, urxvt::OVERLAY_RSTYLE, 0); - $self->{manpage_overlay}->set (0, 0, "scrollback search, see man ${urxvt::RXVTNAME}perl for details"); + $self->{manpage_overlay}->set (0, 0, "scrollback search, see the ${urxvt::RXVTNAME}perl manpage for details"); $self->idle; }