From 887c0039a190455ae591fdb87d8fb28877609c80 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Sun, 4 Mar 2018 17:41:08 -0300
Subject: [PATCH] Properly highlight sub/func with "." in their names.
 Addresses issue #28.

---
 source/ide/ide_methods.bas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 76c1a6e47..60a3a0127 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -8257,7 +8257,6 @@ SUB ideshowtext
     END IF
 
     IF prevListOfCustomWords$ <> listOfCustomKeywords$ THEN
-        prevListOfCustomWords$ = listOfCustomKeywords$
         IF manualList = 0 THEN
             DO
                 atSign = INSTR(atSign + 1, listOfCustomKeywords$, "@")
@@ -8282,6 +8281,7 @@ SUB ideshowtext
                 END IF
             LOOP
         END IF
+
         FOR i = 1 TO LEN (listOfCustomKeywords$)
             checkChar = ASC(listOfCustomKeywords$, i)
             IF checkChar = 64 THEN
@@ -8291,6 +8291,13 @@ SUB ideshowtext
             END IF
         NEXT
         listOfCustomKeywords$ = tempList$
+
+        DO WHILE INSTR(listOfCustomKeywords$, fix046$)
+            x = INSTR(listOfCustomKeywords$, fix046$)
+            listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, x - 1) + "." + RIGHT$(listOfCustomKeywords$, LEN(listOfCustomKeywords$) - x + 1 - LEN(fix046$))
+        LOOP
+
+        prevListOfCustomWords$ = listOfCustomKeywords$
     END IF
 
     cc = -1
@@ -8559,7 +8566,7 @@ SUB ideshowtext
                     checkKeyword$ = ""
                     right.sep$ = ""
                     FOR i = m TO LEN(a2$)
-                        IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 OR MID$(a2$, i, 1) = "." THEN right.sep$ = MID$(a2$, i, 1): EXIT FOR
+                        IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 THEN right.sep$ = MID$(a2$, i, 1): EXIT FOR
                         checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
                     NEXT
                     IF comment = 0 AND LEFT$(checkKeyword$, 1) = "?" THEN isKeyword = 1: GOTO setOldChar