diff --git a/src/parser.ml b/src/parser.ml index 858a35b1..8a9d069a 100644 --- a/src/parser.ml +++ b/src/parser.ml @@ -1444,8 +1444,7 @@ let link_destination st = | Some '&' -> entity buf st; loop n - | Some (' ' | '\t' | '\x00' .. '\x1F' | '\x7F' | '\x80' .. '\x9F') - | None -> + | Some (' ' | '\t' | '\x00' .. '\x1F' | '\x7F') | None -> if n > 0 || Buffer.length buf = 0 then raise Fail; Buffer.contents buf | Some c -> diff --git a/tests/dune.inc b/tests/dune.inc index ecde0870..a196bfc7 100644 --- a/tests/dune.inc +++ b/tests/dune.inc @@ -4902,6 +4902,7 @@ (alias spec-203) (alias spec-204) (alias spec-205) + (alias spec-206) (alias spec-207) (alias spec-208) (alias spec-209) diff --git a/tests/extract_tests.ml b/tests/extract_tests.ml index 4375b0f6..062b4757 100644 --- a/tests/extract_tests.ml +++ b/tests/extract_tests.ml @@ -8,7 +8,7 @@ let protect ~finally f = finally (); r -let disabled = [ 206; 215; 216; 519 ] +let disabled = [ 215; 216; 519 ] let with_open_in fn f = let ic = open_in fn in