Explorar o código

Fix finding line start.

Margers hai 1 mes
pai
achega
4f9950e92e
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fv/src/editors.pas

+ 1 - 1
packages/fv/src/editors.pas

@@ -2486,7 +2486,7 @@ begin
   if P>CurPtr then
    begin
      start:=PAnsiChar(Buffer)+GapLen;
-     pc:=start;
+     pc:=start+P;
      i:=P-CurPtr;
      dec(pc);
      while (i>0) do