completion improvments,

- "." does not validate anymore but close leaving current text as-is
- tm, BACKSPACE workaround, seemsuseless nowadays

CHANGELOG.md

@@ -1,3 +1,12 @@
+# v3.9.19
+
+## Enhancements
+
+- Completion, changed defaults so that `.` does not validate but instead close, leaving typed text as-is.
+  To apply changes, set editopr option `closeCompletionCharsWithSpace` to `*+-/^=~><%.` and `closeCompletionChars` to `,;)}]!`.
+- Completion, while menu opened, <key>Backspace</key> had for effect to also delete next char. 
+  This was an old workaround that has no reason to be maintained anymore.
+
 # v3.9.18
 
 ## Enhancements

src/u_editoroptions.pas

@@ -264,8 +264,8 @@ begin
   fCurrLineAttribs.Background := 15789545;
   fCurrLineAttribs.Foreground := clNone;
   //
-  fCloseCompletionCharsWithSpace := '*+-/^=~><%';
-  fCloseCompletionChars:= '.,;)}]!';
+  fCloseCompletionCharsWithSpace := '*+-/^=~><%.';
+  fCloseCompletionChars:= ',;)}]!';
   //
   options1 :=
     [eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoTabsToSpaces, eoTrimTrailingSpaces,

src/u_synmemo.pas

@@ -2868,14 +2868,6 @@ procedure TDexedMemo.completionDeleteKey(sender: TObject);
 begin
   if CaretX > 0 then
   begin
-
-    // these "stinky" lines are necessary because
-    // the proc is called before deletion is effective
-    // i.e the deleted char is still there...
-    caretX := caretX - 1;
-    ExecuteCommand(ecDeleteChar, #0, nil);
-    caretX := caretX + 1;
-
     getCompletionList();
     if fCompletion.TheForm.ItemList.Count.equals(0) then
     begin