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

SynEdit: Pas-Highlighter. Treat some utf8 as identifiers, to avoid splitting combining marks. Related to Issue #41228

Browse Source
This commit is contained in:
Martin 2024-11-24 18:41:12 +01:00
parent ed45ec5224
commit a81ad6381b
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/synedit/synhighlighterpas.pp
View File

@ -921,7 +921,7 @@ begin
for I := #0 to #255 do
begin
case I of
'_', '0'..'9', 'a'..'z', 'A'..'Z': Identifiers[I] := True;
'_', '0'..'9', 'a'..'z', 'A'..'Z', #128..#255: Identifiers[I] := True;
else Identifiers[I] := False;
end;
J := UpCase(I);
@ -4304,8 +4304,20 @@ end;
procedure TSynPasSyn.SpaceProc;
begin
inc(Run);
if IsCombiningCodePoint(fLine+Run) then begin
IdentProc;
exit;
end;
fTokenID := tkSpace;
if not IsSpaceChar[FLine[Run]] then
exit;
inc(Run);
while IsSpaceChar[FLine[Run]] do inc(Run);
if IsCombiningCodePoint(fLine+Run) then
dec(Run);
end;
procedure TSynPasSyn.StringProc;