From 5f0cb4a3f4696453242756888f76b80cc2e62962 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Mon, 18 Dec 2023 12:06:17 +0100
Subject: [PATCH] sxsyn, adjust lexing to make dot equal ligature working

---
 src/u_sxsyn.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/u_sxsyn.pas b/src/u_sxsyn.pas
index 568262b4..99aedb84 100644
--- a/src/u_sxsyn.pas
+++ b/src/u_sxsyn.pas
@@ -811,7 +811,16 @@ begin
     '>': lexOpAndOpOpAndOpEqualAndOpOpEqual('>');
     // `=`, `==`, `=>`
     '=': lexAssEquOrLambda();
-    '.', '(', ')', ',', ':' , '[', ']', ';' :
+    '.':
+    begin
+      nextPChar := safeLookupChar();
+      fTokKind  := TTokenKind.tkSymbl;
+      if (nextPChar <> nil) and (nextPChar^ = '=') then
+          fTokStop  += 2
+      else
+          fTokStop  += 1;
+    end;
+    '(', ')', ',', ':' , '[', ']', ';' :
     begin
       fTokKind  := TTokenKind.tkSymbl;
       fTokStop  += 1;