this repo has no description
Fix RangeError: decoration positions exceeding document length
Three fixes for "Position N is out of range for changeset" errors:
1. js_top_worker: clamp output_at loc to input length — the ";;"
appended for parsing made pos_cnum extend past the original source
2. x-ocaml/editor: clamp decoration positions against CM document
length (Text.length) not OCaml String.length — they differ for
non-ASCII text (UTF-16 vs bytes). Also combine doc replacement +
decoration clear into a single transaction in set_source, and
read actual CM doc in build_range_set
3. jsoo-code-mirror/decoration: defensive safe_map that catches
JS RangeError in RangeSet.map and returns empty
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
+8
-1
+8
-1
src/decoration.ml
+8
-1
src/decoration.ml
···
49
49
Jv.call range_set "of" [| Jv.of_array Range.to_jv ranges |] |> of_jv
50
50
51
51
let empty = Jv.get range_set "empty" |> of_jv
52
-
let map t changes = Jv.call t "map" [| changes |] |> of_jv
52
+
53
+
let safe_map =
54
+
Jv.new' (Jv.get Jv.global "Function")
55
+
[| Jv.of_string "rs"; Jv.of_string "ch"; Jv.of_string "em";
56
+
Jv.of_string "try { return rs.map(ch); } catch(e) { return em; }" |]
57
+
58
+
let map t changes =
59
+
Jv.call safe_map "call" [| Jv.null; t; changes; to_jv empty |] |> of_jv
53
60
end