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

SynEdit, PasHL: fix "helper for" should not generate "foldnode-info" for "for". issue #33551

Browse Source 
git-svn-id: trunk@57614 -
This commit is contained in:
martin 2018-04-06 21:06:31 +00:00
parent 96169209a1
commit 535304ef18
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synhighlighterpas.pp
View File

@ -1165,7 +1165,8 @@ function TSynPasSyn.Func39: TtkTokenKind;
begin
if KeyComp('For') then begin
Result := tkKey;
StartPascalCodeFoldBlock(cfbtForDo);
if TopPascalCodeFoldBlockType in PascalStatementBlocks then
StartPascalCodeFoldBlock(cfbtForDo);
end
else
if KeyComp('Shl') then Result := tkKey else Result := tkIdentifier;