From f2b5e7313515951483acc13d7a9aba114c332d29 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 22 Apr 2012 18:25:25 +0000
Subject: [PATCH] codetools: fixed find declaration in library starting in
 initialization, bug #21832

git-svn-id: trunk@36974 -
---
 components/codetools/finddeclarationtool.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index d96d36ffde..fae34f2392 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -3246,7 +3246,13 @@ begin
               ContextNode:=ContextNode.FirstChild; // the ctnParameterList
           end;
 
-        ctnProgram, ctnPackage, ctnLibrary, ctnUnit:
+        ctnProgram, ctnLibrary:
+          begin
+            if SearchInSourceName then exit;
+            MoveContextNodeToChildren;
+          end;
+
+        ctnUnit, ctnPackage:
           if SearchInSourceName then exit;
 
         ctnProperty: