fix `find_before_pos`

If this breaks something I blame nadako.

src/typing/typeload.ml

@@ -1567,7 +1567,7 @@ let find_enclosing com e =
 let find_before_pos com e =
 	let display_pos = ref (!Parser.resume_display) in
 	let is_annotated p =
-		if p.pmax = !display_pos.pmin - 1 then begin
+		if p.pmin <= !display_pos.pmin && p.pmax + 1 >= !display_pos.pmax then begin
 			display_pos := { pfile = ""; pmin = -2; pmax = -2 };
 			true
 		end else