paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: IdentifierCompletion, apply history limit to filtered list

Browse Source
This commit is contained in:
Martin 2023-07-21 20:51:39 +02:00
parent b9cdb23eed
commit b087b9f55e
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/identcompletiontool.pas
View File

@ -742,8 +742,11 @@ begin
( (FFoundHistoryItems[j].Compatibility = HistComp) or (not HasCompSort) ) and ( (FFoundHistoryItems[j].Compatibility = HistComp) or (not HasCompSort) ) and
(FFoundHistoryItems[j].Identifier <> '') (FFoundHistoryItems[j].Identifier <> '')
then begin then begin
HistoryLimits[HistComp] := FFoundHistoryItems[j].HistoryIndex; CurItem := FFoundHistoryItems[j];
dec(TotalHistLimit); if (FilterCurItem >= 0) then begin
HistoryLimits[HistComp] := FFoundHistoryItems[j].HistoryIndex;
dec(TotalHistLimit);
end;
end; end;
end; end;
if not HasCompSort then if not HasCompSort then