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

SynPasSyn: fixed smart closing of repeat nodes

Browse Source 
git-svn-id: trunk@35612 -
This commit is contained in:
martin 2012-02-27 19:42:05 +00:00
parent a595df99d1
commit 3ee12b8bbf
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synhighlighterpas.pp
View File

@ -1360,7 +1360,6 @@ function TSynPasSyn.Func65: TtkTokenKind;
begin
if KeyComp('Repeat') then begin
Result := tkKey;
SmartCloseBeginEndBlocks(cfbtRepeat);
StartPascalCodeFoldBlock(cfbtRepeat);
end
else Result := tkIdentifier;
@ -1469,6 +1468,7 @@ function TSynPasSyn.Func76: TtkTokenKind;
begin
if KeyComp('Until') then begin
Result := tkKey;
SmartCloseBeginEndBlocks(cfbtRepeat);
if TopPascalCodeFoldBlockType = cfbtRepeat then EndPascalCodeFoldBlock;
end
else Result := tkIdentifier;
@ -3676,7 +3676,7 @@ end;
procedure TSynPasSyn.SmartCloseBeginEndBlocks(SearchFor: TPascalCodeFoldBlockType);
var
i, nc: Integer;
i: Integer;
t: TPascalCodeFoldBlockType;
begin
// Close unfinished blocks, IF the expected type is found
@ -3696,9 +3696,8 @@ begin
while i > 0 do begin
EndPascalCodeFoldBlockLastLine;
// Todo: FCatchNodeInfoList.CountAll > nc can not happen
nc := FCatchNodeInfoList.CountAll;
if FCatchNodeInfo and (FCatchNodeInfoList.CountAll > nc) then
exclude(FCatchNodeInfoList.LastItemPointer^.FoldAction, sfaMarkup);
//if FCatchNodeInfo and (FCatchNodeInfoList.CountAll > FCatchNodeInfoList.CountAll) then
// exclude(FCatchNodeInfoList.LastItemPointer^.FoldAction, sfaMarkup);
dec(i);
end;
end;