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

SynEdit: PasHighlighter, don't attempt to merge nil attrib

Browse Source 
(cherry picked from commit f74f454aee)
This commit is contained in:
Martin 2025-03-13 11:15:33 +01:00
parent 4ed95ee337
commit ca2e64716d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synhighlighterpas.pp
View File

@ -4413,6 +4413,7 @@ begin
tkUnknown: Result := fSymbolAttri; tkUnknown: Result := fSymbolAttri;
else else
Result := nil; Result := nil;
exit; // can't merge
end; end;
if FTokenIsCaseLabel and (tid in [tkIdentifier, tkKey, tkNumber, tkString]) if FTokenIsCaseLabel and (tid in [tkIdentifier, tkKey, tkNumber, tkString])