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

codetools: auto indent: close if-then on semicolon

Browse Source 
git-svn-id: trunk@22568 -
This commit is contained in:
mattias 2009-11-13 12:03:14 +00:00
parent c88c2b2dce
commit e7a4c20bc0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codebeautifier.pas
View File

@ -1008,15 +1008,15 @@ begin
end; end;
';': ';':
case Stack.TopType of case Stack.TopType of
bbtUsesSection,bbtDefinition,bbtStatement: bbtUsesSection,bbtDefinition:
EndBlock; EndBlock;
bbtCaseColon: bbtCaseColon:
begin begin
EndBlock; EndBlock;
BeginBlock(bbtCaseOf); BeginBlock(bbtCaseOf);
end; end;
bbtIfThen,bbtIfElse: bbtIfThen,bbtIfElse,bbtStatement:
while Stack.TopType in [bbtIf,bbtIfThen,bbtIfElse] do while Stack.TopType in [bbtIf,bbtIfThen,bbtIfElse,bbtStatement] do
EndBlock; EndBlock;
bbtProcedureHead: bbtProcedureHead:
if CheckProcedureModifiers then if CheckProcedureModifiers then