line endings
This commit is contained in:
parent
5cc462180a
commit
b1f8426f87
|
@ -19,6 +19,7 @@ let rec of_utf8_with_newlines t =
|
||||||
if c <> "" then items := Cpdftype.Text (explode c)::!items;
|
if c <> "" then items := Cpdftype.Text (explode c)::!items;
|
||||||
items := Cpdftype.NewLine::!items;
|
items := Cpdftype.NewLine::!items;
|
||||||
Buffer.clear buf
|
Buffer.clear buf
|
||||||
|
| '\r' -> ()
|
||||||
| x ->
|
| x ->
|
||||||
Buffer.add_char buf x)
|
Buffer.add_char buf x)
|
||||||
t;
|
t;
|
||||||
|
|
Loading…
Reference in New Issue