From: root <root>
Date: Mon, 20 Feb 2006 20:46:54 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=52d789d74d197cbb6a7acc408c93bccc0129fd61;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/readline b/src/perl/readline
index b896c00b..ecd011fe 100644
--- a/src/perl/readline
+++ b/src/perl/readline
@@ -39,23 +39,24 @@ sub on_button_press {
    my $cur = $line->offset_of ($row, $col);
    my $ofs = $line->offset_of ($event->{row}, $event->{col});
 
-   $ofs >= 0 && $ofs < $line->l
-      or return;
+   if ($ofs >= 0 && $ofs < $line->l) {
+      my $diff = $ofs - $cur;
+      my $move;
 
-   my $diff = $ofs - $cur;
-   my $move;
+      if ($diff < 0) {
+         ($ofs, $cur) = ($cur, $ofs);
+         $move = "\x1b[D";
+      } else {
+         $move = "\x1b[C";
+      }
 
-   if ($diff < 0) {
-      ($ofs, $cur) = ($cur, $ofs);
-      $move = "\x1b[D";
-   } else {
-      $move = "\x1b[C";
-   }
+      my $skipped = substr $line->t, $cur, $ofs - $cur;
+      $skipped =~ s/\x{ffff}//g;
 
-   my $skipped = substr $line->t, $cur, $ofs - $cur;
-   $skipped =~ s/\x{ffff}//g;
+      $self->tt_write ($move x length $skipped);
 
-   $self->tt_write ($move x length $skipped);
+      return 1;
+   }
 
-   1
+   ()
 }