From 4d65ff6a5da5b437dde334fba1bd16687f1a7621 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 2 Jul 2010 19:59:54 +0000
Subject: [PATCH] codetools: search for ctnIndentifier with unit prefixes, bug
 #11577

git-svn-id: trunk@26424 -
---
 components/codetools/finddeclarationtool.pas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index d9b599d707..18184dac98 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -2313,10 +2313,13 @@ begin
   Result:=false;
   // search in cleaned source
   MoveCursorToCleanPos(Params.Identifier);
-  if Params.ContextNode.Desc<>ctnIdentifier then
-    StartPos:=-1
-  else
-    StartPos:=GetHybridCursorStart;
+  StartPos:=-1;
+  if Params.ContextNode.Desc=ctnIdentifier then begin
+    if HybridCursorType=hcDirty then
+      StartPos:=DirtySrc.CurPos.StartPos
+    else
+      StartPos:=Params.ContextNode.StartPos;
+  end;
   ReadNextAtom;
   EndPos:=CurPos.EndPos;
   ReadNextAtom;