From 25b091dfefb3587a4d3ec6dcc1d16130b2453664 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 11 Nov 2009 13:08:30 +0000
Subject: [PATCH] codetools: auto indent: fixed parsing begin in statements

git-svn-id: trunk@22530 -
---
 components/codetools/codebeautifier.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/codetools/codebeautifier.pas b/components/codetools/codebeautifier.pas
index b7155b0089..f6b627232e 100644
--- a/components/codetools/codebeautifier.pas
+++ b/components/codetools/codebeautifier.pas
@@ -750,7 +750,7 @@ begin
       if CompareIdentifiers('BEGIN',r)=0 then begin
         while Stack.TopType
         in (bbtAllIdentifierSections+bbtAllCodeSections+bbtAllBrackets
-          +[bbtDefinition,bbtProcedureModifiers,bbtProcedureHead])
+          +[bbtDefinition,bbtProcedureModifiers,bbtProcedureHead,bbtStatement])
         do
           EndBlock;
         case Stack.TopType of
@@ -758,7 +758,7 @@ begin
           BeginBlock(bbtMainBegin);
         bbtProcedure,bbtFunction:
           BeginBlock(bbtProcedureBegin);
-        bbtMainBegin,bbtProcedureBegin:
+        bbtMainBegin,bbtProcedureBegin,bbtStatement:
           BeginBlock(bbtFreeBegin);
         bbtCaseElse,bbtCaseColon:
           BeginBlock(bbtCaseBegin);