mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 00:37:47 +02:00
Codetools: Restore filtering a completion list in TIdentifierList.Add. Issue #32972.
This commit is contained in:
parent
6f6df5602b
commit
9dd4b6a97e
@ -965,6 +965,13 @@ procedure TIdentifierList.Add(NewItem: TIdentifierListItem);
|
||||
var
|
||||
AnAVLNode: TAVLTreeNode;
|
||||
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);
|
||||
if AnAVLNode=nil then begin
|
||||
if History<>nil then
|
||||
|
Loading…
Reference in New Issue
Block a user