--- rxvt-unicode/src/perl/readline	2006/01/20 22:49:34	1.3
+++ rxvt-unicode/src/perl/readline	2006/01/21 08:07:39	1.4
@@ -3,12 +3,15 @@
 sub on_button_press {
    my ($self, $event) = @_;
 
+   return
+      if $self->current_screen || $self->hidden_cursor;
+
    my ($row, $col) = $self->screen_cur;
    my $line = $self->line ($row);
    my $cur = $line->offset_of ($row, $col);
    my $ofs = $line->offset_of ($event->{row}, $event->{col});
 
-   if ($ofs >= 0 && $ofs < $line->l && !$self->current_screen) {
+   if ($ofs >= 0 && $ofs < $line->l) {
       my $diff = $ofs - $cur;
       my $move;