comp menu auto close option unrelated to update list

This commit is contained in:
Basile Burg 2018-10-22 06:45:16 +02:00
parent 1e340a7f9d
commit 76f0550551
1 changed files with 3 additions and 6 deletions

View File

@ -2765,17 +2765,14 @@ end;
procedure TCESynMemo.completionDeleteKey(sender: TObject);
begin
if fCompletionMenuAutoClose then
begin
if fCompletion.CurrentString.length < 2 then
fCompletion.TheForm.Close
end
else if CaretX > 0 then
if CaretX > 0 then
begin
caretX := CaretX - 1;
getCompletionList();
caretX := CaretX + 1;
end;
if fCompletionMenuAutoClose and (fCompletion.CurrentString.length < 2) then
fCompletion.TheForm.Close;
end;
procedure TCESynMemo.getCompletionList;