implement function to initialise env for text builder

2025-09-12 11:17:11 +01:00
parent 9254fa9f5c
commit 67db4804fb
3 changed files with 132 additions and 342 deletions
--- a/fcore/text-builder/text-builder-with-highlight.sml
+++ b/fcore/text-builder/text-builder-with-highlight.sml
@@ -273,7 +273,7 @@ struct
                    Utils.makeCursor (posX, posY, env)
                    :: Utils.makeCursorOnChr (chr, posX, posY, env) :: acc
                  else if Utils.isInSearchRange (absIdx, searchPos, env) then
-                    Utils.makeCursorOnChr (chr, posX, posY, env)
+                    Utils.makeHighlightChr (chr, posX, posY, env)
                    :: Utils.makeHighlight (posX, posY, env) :: acc
                  else
                    acc