paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 23:57:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: auto indenter: fixed parsing in bbtStatement

Browse Source 
git-svn-id: trunk@22868 -
This commit is contained in:
mattias 2009-11-30 09:16:11 +00:00
parent 6d42a4b2d0
commit 45f8f39a9e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/codebeautifier.pas
View File

@ -161,7 +161,7 @@ const
bbtTry,bbtFinally,bbtExcept,
bbtIfThen,bbtIfElse,bbtIfBegin];
bbtAllStatements = bbtAllStatementParents+[
bbtStatementRoundBracket,bbtStatementEdgedBracket];
bbtStatement,bbtStatementRoundBracket,bbtStatementEdgedBracket];
bbtAllBrackets = [bbtTypeRoundBracket,bbtTypeEdgedBracket,
bbtStatementRoundBracket,bbtStatementEdgedBracket];
const
@ -1097,7 +1097,8 @@ begin
BeginBlock(bbtDefinition);
end;
if (Stack.TopType in bbtAllStatementParents)
and (not AtomStartedBlock) and (not AtomEndedBlock) then begin
and (not AtomStartedBlock) and (not AtomEndedBlock)
and (r^<>';') then begin
// new statement
BeginBlock(bbtStatement);
end;