paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 03:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: search for ctnIndentifier with unit prefixes, bug #11577

Browse Source 
git-svn-id: trunk@26424 -
This commit is contained in:
mattias 2010-07-02 19:59:54 +00:00
parent e03811d82e
commit 4d65ff6a5d
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/finddeclarationtool.pas
View File

@ -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;