From 82453a29148e2f365b884b1d173f840a2208cfd1 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 13 Mar 2003 21:55:42 +0000
Subject: [PATCH] fixed ident completion and parsed with statements

git-svn-id: trunk@3921 -
---
 components/codetools/pascalparsertool.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 95bdbd1888..39fa79229b 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -4458,7 +4458,7 @@ begin
     Result:=FindDeepestNodeAtPos(CleanCursorPos,true);
     if Result=nil then exit;
   end;
-  if Result.Desc in AllPascalStatements then begin
+  if Result.Desc=ctnBeginBlock then begin
     BuildSubTreeForBeginBlock(Result);
     Result:=FindDeepestNodeAtPos(CleanCursorPos,true);
     if Result=nil then exit;