Media: newline in alt text are turned into spaces

Author: panglesd

src/parser/lexer.mll

@@ -730,6 +730,9 @@ and media tok_descr buffer nesting_level start_offset input = parse
           ~what:(Token.describe `End)
           ~in_what:tok_descr);
       Buffer.contents buffer}
+  | (newline)
+    { Buffer.add_char buffer ' ';
+      media tok_descr buffer nesting_level start_offset input lexbuf }
   | _ as c
     { Buffer.add_char buffer c;
       media tok_descr buffer nesting_level start_offset input lexbuf }

src/parser/test/test.ml

@@ -2167,8 +2167,7 @@ let%expect_test _ =
         {|
            ((output
              (((f.ml (1 0) (2 5))
-               (simple ((f.ml (1 8) (2 -6)) (Reference foo))  "bar \
-                                                             \n baz" image))))
+               (simple ((f.ml (1 8) (2 -6)) (Reference foo)) "bar   baz" image))))
             (warnings ())) |}]
   end in
   ()