paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 00:30:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed codecomplete when the word was already typed

Browse Source
This commit is contained in:
daniel 2000-01-24 12:00:38 +00:00
parent d0a230bd96
commit 36e3f595ce
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/text/fpcodcmp.pas
View File

@ -25,7 +25,7 @@ begin
if OK then
begin
Text:=CodeCompleteWords^.Lookup(WordS,Index);
OK:=(Index<>-1);
OK:=(Index<>-1) and (length(Text)<>length(WordS));
end;
if OK=false then Text:='';
FPCompleteCodeWord:=OK;
@ -56,4 +56,4 @@ begin
CodeCompleteWords:=nil;
end;
END.
END.