Restore -typeset behaviour

This commit is contained in:
John Whitington 2023-06-27 15:54:15 +01:00
parent 3f0ebec69d
commit 9bc5a611c5
2 changed files with 2 additions and 1 deletions

Binary file not shown.

View File

@ -10,7 +10,7 @@ let rec of_utf8_with_newlines fontpack fontsize t =
(fun u ->
match Cpdfembed.get_char fontpack u with
| Some (c, n, f) ->
Printf.printf "Charcode %i, font number %i\n" c n;
(*Printf.printf "Charcode %i, font number %i\n" c n;*)
begin if n <> !currfont then
begin
if !currtext <> [] then items := Cpdftype.Text (rev !currtext)::!items;
@ -33,6 +33,7 @@ let rec of_utf8_with_newlines fontpack fontsize t =
let c = rev !buf in
if c <> [] then process_codepoints c;
items := Cpdftype.NewLine::!items;
currtext := [];
buf := []
| 13 (*'\r'*) -> ()
| x ->