paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-06 06:52:36 +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;
';':
case Stack.TopType of
bbtUsesSection,bbtDefinition,bbtStatement:
bbtUsesSection,bbtDefinition:
EndBlock;
bbtCaseColon:
begin
EndBlock;
BeginBlock(bbtCaseOf);
end;
bbtIfThen,bbtIfElse:
while Stack.TopType in [bbtIf,bbtIfThen,bbtIfElse] do
bbtIfThen,bbtIfElse,bbtStatement:
while Stack.TopType in [bbtIf,bbtIfThen,bbtIfElse,bbtStatement] do
EndBlock;
bbtProcedureHead:
if CheckProcedureModifiers then