paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:09:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: Restore filtering a completion list in TIdentifierList.Add. Issue #32972.

Browse Source
This commit is contained in:
Juha 2025-03-04 10:13:57 +02:00
parent 6f6df5602b
commit 9dd4b6a97e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/identcompletiontool.pas
View File

@ -965,6 +965,13 @@ procedure TIdentifierList.Add(NewItem: TIdentifierListItem);
var var
AnAVLNode: TAVLTreeNode; AnAVLNode: TAVLTreeNode;
begin begin
if (ilcfDontAllowProcedures in ContextFlags) and (NewItem.GetDesc = ctnProcedure)
and not (NewItem.IsFunction or NewItem.IsConstructor) then
begin // no procedures here
//DebugLn(['TIdentifierList.Add: Skipped "',NewItem.Identifier,'"']);
NewItem.Free;
exit;
end;
AnAVLNode:=FIdentView.FindKey(NewItem,@CompareIdentListItemsForIdents); AnAVLNode:=FIdentView.FindKey(NewItem,@CompareIdentListItemsForIdents);
if AnAVLNode=nil then begin if AnAVLNode=nil then begin
if History<>nil then if History<>nil then