|
@@ -402,8 +402,9 @@ let parse_string com s p error inlined =
|
|
syntax_errors := old_syntax_errors;
|
|
syntax_errors := old_syntax_errors;
|
|
Lexer.restore old
|
|
Lexer.restore old
|
|
in
|
|
in
|
|
- Lexer.init p.pfile;
|
|
|
|
- if not inlined then begin
|
|
|
|
|
|
+ if inlined then
|
|
|
|
+ Lexer.init p.pfile
|
|
|
|
+ else begin
|
|
display_position#reset;
|
|
display_position#reset;
|
|
in_display_file := false;
|
|
in_display_file := false;
|
|
end;
|
|
end;
|