line endings

This commit is contained in:
John Whitington 2021-12-11 13:17:44 +00:00
parent 5cc462180a
commit b1f8426f87
1 changed files with 1 additions and 0 deletions

View File

@ -19,6 +19,7 @@ let rec of_utf8_with_newlines t =
if c <> "" then items := Cpdftype.Text (explode c)::!items;
items := Cpdftype.NewLine::!items;
Buffer.clear buf
| '\r' -> ()
| x ->
Buffer.add_char buf x)
t;