better naming of functions to create search/char highlight

2025-10-15 10:01:50 +01:00
parent e2ed022ccc
commit 60b6cc6d6d
3 changed files with 11 additions and 9 deletions
--- a/fcore/text-builder/text-builder-with-cursor.sml
+++ b/fcore/text-builder/text-builder-with-cursor.sml
@@ -226,8 +226,10 @@ struct
            let
              val acc =
                if absIdx = cursorIdx then
-                  let val acc = Utils.makeCursor (posX, posY, env) :: acc
-                  in Utils.makeCursorOnChr (chr, posX, posY, env) :: acc
+                  let
+                    val acc = Utils.makeCursor (posX, posY, env) :: acc
+                  in
+                    Utils.makeCursorHighlightedChr (chr, posX, posY, env) :: acc
                  end
                else
                  Utils.makeChr (chr, posX, posY, env) :: acc