From 0b281136919e2ebd836496ed795d81e3e17d4676 Mon Sep 17 00:00:00 2001
From: Dmitry Karasik <dmitry@karasik.eu.org>
Date: Sat, 20 Jul 2024 11:21:49 +0200
Subject: [PATCH] fix selection bug

---
 Prima/Edit.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Prima/Edit.pm b/Prima/Edit.pm
index 753f7c10..5662f279 100644
--- a/Prima/Edit.pm
+++ b/Prima/Edit.pm
@@ -1516,7 +1516,7 @@ sub set_selection
 			if ( $ey == $oey) {
 				if ( $sx == $osx) {
 					$start = $end = $ey;
-					$sx = $osx = length $self->get_chunk($start) if $ey != $sy;
+					$sx = $osx = 0 if $ey != $sy;
 				} elsif ( $ex == $oex) {
 					$start = $end = $sy;
 					$ex = $oex = length $self->get_chunk($start) if $ey != $sy;