fixing Alexey-T/CudaText#5028

Alexey-T · Apr 26, 2023 · 8560038 · 8560038
1 parent 2712a42
commit 8560038
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/atsynedit/atsynedit_cmd_editing.inc b/atsynedit/atsynedit_cmd_editing.inc
@@ -854,6 +854,16 @@ begin
   bChange:= false;
   St:= Strings;
 
+  //Sublime Text, VSCode: delete selection first
+  if Carets.IsSelection then
+  begin
+    Result:= DoCommand_TextDeleteSelection();
+    //deletion of block by BkSpace needs undo-group, CudaText issue #3971
+    St.BeginUndoGroup;
+    St.EndUndoGroup;
+    exit;
+  end;
+
   //also make undo-group to fix CudaText issue #3971
   St.BeginUndoGroup;
   St.EndUndoGroup;

diff --git a/atsynedit/atsynedit_commands.pas b/atsynedit/atsynedit_commands.pas
@@ -75,8 +75,8 @@ interface
   cCommand_TextDeleteToLineBegin = 173 or cCmdFlag_ResetSel;
   cCommand_TextDeleteToLineEnd = 174 or cCmdFlag_ResetSel;
   cCommand_TextDeleteToTextEnd = 175 or cCmdFlag_ResetSel;
-  cCommand_TextDeleteWordNext = 176 or cCmdFlag_ResetSel;
-  cCommand_TextDeleteWordPrev = 177 or cCmdFlag_ResetSel;
+  cCommand_TextDeleteWordNext = 176;
+  cCommand_TextDeleteWordPrev = 177;
   cCommand_TextDeleteToTextBegin = 178 or cCmdFlag_ResetSel;
   cCommand_TextDeleteWordEntire = 179 or cCmdFlag_ResetSel;