paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 01:59:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: rename identifier: procedure jump to prochead

Browse Source 
git-svn-id: trunk@42074 -
This commit is contained in:
mattias 2013-07-13 12:42:32 +00:00
parent e3385b3536
commit 71afb213fb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/finddeclarationtool.pas
View File

@ -1512,8 +1512,11 @@ begin
and (NodeIsMethodBody(CursorNode.Parent)) then begin
// if this is a procedure body, try to find the corresponding declaration
NewNode:=FindCorrespondingProcNode(CursorNode.Parent);
if (NewNode<>nil) and (NewNode.StartPos<CursorNode.StartPos) then
CleanCursorPos:=NewNode.StartPos
if (NewNode<>nil) and (NewNode.Desc=ctnProcedure) then
NewNode:=NewNode.FirstChild;
if (NewNode<>nil) and (NewNode.StartPos<CursorNode.StartPos) then begin
CleanCursorPos:=NewNode.StartPos;
end
else
NewNode:=CursorNode;
end;