From 52d789d74d197cbb6a7acc408c93bccc0129fd61 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Mon, 20 Feb 2006 20:46:54 +0000
Subject: [PATCH] *** empty log message ***

---
 src/perl/readline | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

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
+   ()
 }
-- 
2.34.1