From 58a1e8c05ff33288f1562e697703870b76b6269e Mon Sep 17 00:00:00 2001 From: John Whitington Date: Thu, 19 Sep 2024 15:51:26 +0100 Subject: [PATCH] -paras working --- cpdfdraw.ml | 2 +- cpdfdrawcontrol.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cpdfdraw.ml b/cpdfdraw.ml index 7650a4f..56dfef5 100644 --- a/cpdfdraw.ml +++ b/cpdfdraw.ml @@ -433,7 +433,7 @@ let rec ops_of_drawop struct_tree dryrun pdf endpage filename bates batespad num flatten (map (function para -> - if not !first then ([Pdfops.Op_T']) else (clear first; []) @ format_paragraph j w para) + (if not !first then ([Pdfops.Op_T']) else (clear first; [])) @ format_paragraph j w para) s) | Leading f -> [Pdfops.Op_TL f] | CharSpace f -> [Pdfops.Op_Tc f] diff --git a/cpdfdrawcontrol.ml b/cpdfdrawcontrol.ml index c272dcc..20e9ee6 100644 --- a/cpdfdrawcontrol.ml +++ b/cpdfdrawcontrol.ml @@ -373,7 +373,7 @@ let addpara s = addop (Cpdfdraw.Para (j, w, [s])) let rec split_on_newlines a = function - | 0x005c::0x004e::t -> rev a::split_on_newlines [] t + | 0x005c::0x006e::t -> rev a::split_on_newlines [] t | h::t -> split_on_newlines (h::a) t | [] -> if a = [] then [] else [rev a]