summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2021-11-05 18:21:45 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2021-11-05 18:21:45 +1300
commit6a41f364d8e4222f4cf27d967a89fce509d10aaa (patch)
treee2b845dda19159a0e80466bac4cc502967bdae99 /src
parent039971f920c5a3647a33dcee0ded0100c9319223 (diff)
Fixed bug in Replace_All
Diffstat (limited to 'src')
-rw-r--r--src/fmd.adb2
1 files changed, 1 insertions, 1 deletions
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;