Browse Source

Backspace Tab character correctly.

Margers 10 months ago
parent
commit
ca0dad1ce1
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/ide/weditor.pas

+ 2 - 2
packages/ide/weditor.pas

@@ -4906,8 +4906,8 @@ begin
      CP:=CurPos.X-1;
      CP:=CurPos.X-1;
      S:=GetLineText(CurPos.Y);
      S:=GetLineText(CurPos.Y);
      CI:=LinePosToCharIdx(CurPos.Y,CP);
      CI:=LinePosToCharIdx(CurPos.Y,CP);
-     if (s[ci]=TAB) and (CharIdxToLinePos(Curpos.y,ci)=cp) then
-      CP:=CharIdxToLinePos(CurPos.Y,CI-1)+1;
+     if (s[ci]=TAB) {and (CharIdxToLinePos(Curpos.y,ci)=cp)} then
+      CP:=CharIdxToLinePos(CurPos.Y,CI);
      if IsFlagSet(efBackspaceUnindents) then
      if IsFlagSet(efBackspaceUnindents) then
       begin
       begin
         S:=GetDisplayText(CurPos.Y);
         S:=GetDisplayText(CurPos.Y);