From 34bcf2c44543eb00402523c3642c88b5e1ecd90a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 23 Feb 2010 12:01:42 +0000
Subject: [PATCH] codetools: fixed ConvertDelphiToLazarusSource reparse after
 adding mode delphi

git-svn-id: trunk@23767 -
---
 components/codetools/stdcodetools.pas | 25 ++++++++++---------------
 1 file changed, 10 insertions(+), 15 deletions(-)

diff --git a/components/codetools/stdcodetools.pas b/components/codetools/stdcodetools.pas
index 04009ef6a8..d41bf301fb 100644
--- a/components/codetools/stdcodetools.pas
+++ b/components/codetools/stdcodetools.pas
@@ -3941,21 +3941,16 @@ begin
   Result:=false;
   if SourceChangeCache=nil then exit;
   SourceChangeCache.MainScanner:=Scanner;
-  SourceChangeCache.BeginUpdate;
-  try
-    DebugLn('ConvertDelphiToLazarusSource AddModeDelphiDirective');
-    if not AddModeDelphiDirective then exit;
-    DebugLn('ConvertDelphiToLazarusSource RemoveDFMResourceDirective');
-    if not RemoveDFMResourceDirective then exit;
-    DebugLn('ConvertDelphiToLazarusSource AddLRSIncludeDirective');
-    if not AddLRSIncludeDirective then exit;
-    DebugLn('ConvertDelphiToLazarusSource ConvertUsedUnits');
-    if not ConvertUsedUnits then exit;
-    DebugLn('ConvertDelphiToLazarusSource Apply');
-    if not SourceChangeCache.Apply then exit;
-  finally
-    SourceChangeCache.EndUpdate;
-  end;
+  DebugLn('ConvertDelphiToLazarusSource AddModeDelphiDirective');
+  if not AddModeDelphiDirective then exit;
+  DebugLn('ConvertDelphiToLazarusSource RemoveDFMResourceDirective');
+  if not RemoveDFMResourceDirective then exit;
+  DebugLn('ConvertDelphiToLazarusSource AddLRSIncludeDirective');
+  if not AddLRSIncludeDirective then exit;
+  DebugLn('ConvertDelphiToLazarusSource ConvertUsedUnits');
+  if not ConvertUsedUnits then exit;
+  DebugLn('ConvertDelphiToLazarusSource Apply');
+  if not SourceChangeCache.Apply then exit;
   DebugLn('ConvertDelphiToLazarusSource END');
   Result:=true;
 end;