paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 21:10:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix detecting combining after white-space (tab). Amend fix from commit ed45ec5224 See Issue #41228

Browse Source
This commit is contained in:
Martin 2025-02-09 22:13:39 +01:00
parent 696cf7c7b5
commit 3d01335568
1 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
components/synedit/lazsyntextarea.pp
View File

@ -1738,25 +1738,29 @@ var
case pt^ of
#9: begin
dec(e);
if (vscTabAtFirst in FVisibleSpecialChars) and (j < CWLen) then begin
pl^ := #194; inc(pl);
pl^ := #187; inc(pl);
dec(k);
if FetoBuf <> nil then FEtoBuf.EtoData[e] := c;
inc(e);
end;
while k > 0 do begin
pl^ := ' '; inc(pl);
dec(k);
if FetoBuf <> nil then FEtoBuf.EtoData[e] := c;
inc(e);
end;
if (vscTabAtLast in FVisibleSpecialChars) and ((pl-1)^=' ') and (j < CWLen) and
(not IsCombiningCodePoint(pt+1))
then begin
(pl-1)^ := #194;
pl^ := #187; inc(pl);
if (not IsCombiningCodePoint(pt+1)) then begin
dec(e);
if (vscTabAtFirst in FVisibleSpecialChars) and (j < CWLen) then begin
pl^ := #194; inc(pl);
pl^ := #187; inc(pl);
dec(k);
if FetoBuf <> nil then FEtoBuf.EtoData[e] := c;
inc(e);
end;
while k > 0 do begin
pl^ := ' '; inc(pl);
dec(k);
if FetoBuf <> nil then FEtoBuf.EtoData[e] := c;
inc(e);
end;
if (vscTabAtLast in FVisibleSpecialChars) and ((pl-1)^=' ') and (j < CWLen) then begin
(pl-1)^ := #194;
pl^ := #187; inc(pl);
end;
end
else begin
pl^ := pt^;
inc(pl);
end;
end;
' ': begin