From e16c9a383bc267365e5f3c5e50c867a409301205 Mon Sep 17 00:00:00 2001
From: Alexey <support@uvviewsoft.com>
Date: Wed, 18 Mar 2020 23:00:58 +0300
Subject: [PATCH] cmds Sort: dont change caret pos

---
 atsynedit/atsynedit_cmd_editing.inc | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/atsynedit/atsynedit_cmd_editing.inc b/atsynedit/atsynedit_cmd_editing.inc
index c4cde0fbf..b2364267b 100644
--- a/atsynedit/atsynedit_cmd_editing.inc
+++ b/atsynedit/atsynedit_cmd_editing.inc
@@ -970,13 +970,8 @@ begin
     Caret.GetSelLines(NFrom, NTo);
   end;
 
-  DoCaretSingle(0, 0);
   Strings.ActionSort(AAction, NFrom, NTo);
-
-  if NFrom>=0 then
-    DoCaretSingle(0, NTo+1, 0, NFrom);
-
-  Result:= [cResultText, cResultCaretTop];
+  Result:= [cResultText];
 end;
 
 function TATSynEdit.DoCommand_DeleteAllBlanks: TATCommandResults;