From bd3b673996bcfb0f6b4a24b58e72ecc37a052c2d Mon Sep 17 00:00:00 2001
From: SteveMcNeill <smcneill@swva.net>
Date: Wed, 18 May 2022 07:10:59 -0400
Subject: [PATCH 1/2] test change to IdeAddSearched

---
 internal/source/searched.bin | 2 --
 source/ide/ide_methods.bas   | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)
 delete mode 100644 internal/source/searched.bin

diff --git a/internal/source/searched.bin b/internal/source/searched.bin
deleted file mode 100644
index a8a2db3c4..000000000
--- a/internal/source/searched.bin
+++ /dev/null
@@ -1,2 +0,0 @@
-
-wiki
diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 72eddf872..dc5fde3b2 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -18600,7 +18600,7 @@ FUNCTION removeDoubleSlashes$(f$)
 END FUNCTION
 
 SUB IdeAddSearched (s2$)
-    s$ = CRLF + s2$ + CRLF
+    s$ = s2$ + CHR$(10)
     fh = FREEFILE
     OPEN ".\internal\temp\searched.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$
     x = INSTR(UCASE$(a$), UCASE$(s$))

From 459c8a216d847564ce4b02f8a145ba7e561a5c1e Mon Sep 17 00:00:00 2001
From: SteveMcNeill <smcneill@swva.net>
Date: Wed, 18 May 2022 11:12:49 -0400
Subject: [PATCH 2/2] Update ide_methods.bas

---
 source/ide/ide_methods.bas | 43 ++++++++++++++++----------------------
 1 file changed, 18 insertions(+), 25 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index dc5fde3b2..c8b2dab4e 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -17668,23 +17668,11 @@ FUNCTION idesearchedbox$
 
     ln = 0
     l$ = ""
-    fh = FREEFILE
-    OPEN ".\internal\temp\searched.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$
-    a$ = RIGHT$(a$, LEN(a$) - 2)
-    DO WHILE LEN(a$)
-        ai = INSTR(a$, CRLF)
-        IF ai THEN
-            f$ = LEFT$(a$, ai - 1): IF ai = LEN(a$) - 1 THEN a$ = "" ELSE a$ = RIGHT$(a$, LEN(a$) - ai - 3)
-            IF LEN(l$) THEN l$ = l$ + sep + f$ ELSE l$ = f$
-            ln = ln + 1
-        END IF
-    LOOP
-    CLOSE #fh
-
-    IF ln = 0 THEN
-        l$ = sep
-    END IF
-
+    REDIM SearchHistory(0) AS STRING
+    RetrieveSearchHistory SearchHistory()
+    FOR i = 1 to UBOUND(SearchHistory)
+        l$ = SearchHistory(i) + sep + l$
+    NEXT
     '72,19
 
     h = idewy + idesubwindow - 9
@@ -18600,7 +18588,7 @@ FUNCTION removeDoubleSlashes$(f$)
 END FUNCTION
 
 SUB IdeAddSearched (s2$)
-    s$ = s2$ + CHR$(10)
+    s$ = s2$ + CRLF
     fh = FREEFILE
     OPEN ".\internal\temp\searched.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$
     x = INSTR(UCASE$(a$), UCASE$(s$))
@@ -19986,13 +19974,18 @@ END FUNCTION
 SUB RetrieveSearchHistory (SearchHistory() as string)
     fh = FREEFILE
     OPEN ".\internal\temp\searched.bin" FOR BINARY AS #fh
-    redim _preserve SearchHistory(1 to 10000) 'large initial array to hold the data
-    Do until eof(fh)
-       ln = ln + 1
-       if ln > ubound(SearchHistory) then redim _preserve SearhHistory(1 to ln + 10000) 'large resize, it necessary
-       line input #fh, SearchHistory(ln)
-    Loop
-    redim _preserve SearchHistory(1 to ln) 'resize to proper size before exit
+    redim _preserve SearchHistory(1 to 10000) AS STRING 'large initial array to hold the data
+    IF LOF(FH) THEN
+        Do until eof(fh)
+           ln = ln + 1
+           if ln > ubound(SearchHistory) then redim _preserve SearhHistory(1 to ln + 10000) AS STRING 'large resize, it necessary
+           line input #fh, SearchHistory(ln)
+        Loop
+        redim _preserve SearchHistory(1 to ln) AS STRING'resize to proper size before exit
+    ELSE
+       REDIM SearchHistory(1) AS STRING
+       SearchHistory(1) = ""
+    END IF
     CLOSE #fh
 end sub