From 6a41f364d8e4222f4cf27d967a89fce509d10aaa Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Fri, 5 Nov 2021 18:21:45 +1300
Subject: Fixed bug in Replace_All

---
 src/fmd.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/fmd.adb b/src/fmd.adb
index 8d8fcde..cd512cb 100644
--- a/src/fmd.adb
+++ b/src/fmd.adb
@@ -170,7 +170,7 @@ package body FMD is
         loop
             Position := SU.Index (Text, Item);
             exit when Position = 0;
-            SU.Replace_Slice (Text, Position, Position + Sub'Length - 1, Sub);
+            SU.Replace_Slice (Text, Position, Position + Item'Length - 1, Sub);
         end loop;
     end Replace_All;
 
-- 
cgit