diff --git a/CHANGELOG.md b/CHANGELOG.md
index 5e7f0f75..ee21e3df 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -3,6 +3,7 @@
 ## Enhancement
 
 - editor: a new option, _textCompletion_, sets if the completion menu includes the identifiers obtained by word-splitting the whole document. (#85)
+- editor: prevent completion menu to show on fast enough (< to the _autoDotDelay_ setting) `..`.
 - Halstead metrics: show full function signatures.
 - projects: added the _Check semantics_ to the menu. (#83)
 - DUB projects: added support for the _syntax_ build type. (#83)
diff --git a/src/u_synmemo.pas b/src/u_synmemo.pas
index 3cb205f8..64ded49c 100644
--- a/src/u_synmemo.pas
+++ b/src/u_synmemo.pas
@@ -257,6 +257,7 @@ type
     fMultiGutterMarks: TSynMultiGutterMarks;
     fTextCompletion: boolean;
     fTextCompletionMinLength: integer;
+    fLastUp: word;
     procedure showHintEvent(Sender: TObject; HintInfo: PHintInfo);
     procedure setGutterTransparent(value: boolean);
     procedure decCallTipsLvl;
@@ -3690,7 +3691,7 @@ procedure TDexedMemo.KeyUp(var Key: Word; Shift: TShiftState);
 begin
   case Key of
     VK_PRIOR, VK_NEXT, VK_UP: fPositions.store;
-    VK_OEM_PERIOD, VK_DECIMAL: fCanAutoDot := true;
+    VK_OEM_PERIOD, VK_DECIMAL: fCanAutoDot := (fLastUp <> VK_OEM_PERIOD) and (fLastUp <> VK_DECIMAL);
   end;
   inherited;
   if fAutoCallCompletion and fIsDSource and (not fCompletion.IsActive) and
@@ -3701,6 +3702,7 @@ begin
   end;
   if (Key = VK_BACK) and fCallTipWin.Visible then
     showCallTips(true);
+  fLastUp := Key;
 end;
 
 procedure TDexedMemo.UTF8KeyPress(var Key: TUTF8Char);