paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:09:19 +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

9
components/codetools/finddeclarationtool.pas
View File

@ -2313,10 +2313,13 @@ begin
Result:=false; Result:=false;
// search in cleaned source // search in cleaned source
MoveCursorToCleanPos(Params.Identifier); MoveCursorToCleanPos(Params.Identifier);
if Params.ContextNode.Desc<>ctnIdentifier then StartPos:=-1;
StartPos:=-1 if Params.ContextNode.Desc=ctnIdentifier then begin
if HybridCursorType=hcDirty then
StartPos:=DirtySrc.CurPos.StartPos
else else
StartPos:=GetHybridCursorStart; StartPos:=Params.ContextNode.StartPos;
end;
ReadNextAtom; ReadNextAtom;
EndPos:=CurPos.EndPos; EndPos:=CurPos.EndPos;
ReadNextAtom; ReadNextAtom;