From c2c987cddab4acda367527528dee26ce1930570e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 6 Jul 2023 20:26:09 +0200
Subject: [PATCH] fix #121 - Words completions dont not fully take idents
 containing digits

---
 src/u_synmemo.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/u_synmemo.pas b/src/u_synmemo.pas
index 3fe247a0..9e6bd879 100644
--- a/src/u_synmemo.pas
+++ b/src/u_synmemo.pas
@@ -2931,6 +2931,7 @@ var
   h: TStringHashSet;
 const
   c: TSysCharSet = ['A'..'Z', 'a'..'z', '_'];
+  a: TSysCharSet = ['A'..'Z', 'a'..'z', '_', '0' .. '9'];
 begin
 
   fCompletion.Position := 0;
@@ -2962,7 +2963,7 @@ begin
       r := TStringRange.create(lines[i]);
       while not r.empty do
       begin
-        w := r.popUntil(c)^.takeWhile(c).yield;
+        w := r.popUntil(c)^.takeWhile(a).yield;
         if (w.length >= fTextCompletionMinLength) and not h.contains(w) then
         begin
           h.insert(w);