Procházet zdrojové kódy

Fix finding line start.

Margers před 1 měsícem
rodič
revize
4f9950e92e
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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