cmds Sort: dont change caret pos

Alexey-T · Mar 18, 2020 · e16c9a3 · e16c9a3
1 parent 35f9c71
commit e16c9a3
Showing 1 changed file with 1 addition and 6 deletions.
diff --git 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;