From efbb6007e34db08dd7829e56a5c51d8e7e37b71a Mon Sep 17 00:00:00 2001 From: John Whitington Date: Fri, 7 Mar 2025 17:20:48 +0000 Subject: [PATCH] more --- cpdftoc.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cpdftoc.ml b/cpdftoc.ml index c4fc88b..21c40a3 100644 --- a/cpdftoc.ml +++ b/cpdftoc.ml @@ -272,7 +272,7 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce let struct_tree_root = match Pdf.lookup_immediate "/StructTreeRoot" (Pdf.lookup_obj pdf pdf.Pdf.root) with | Some (Pdf.Indirect i) -> i - | _ -> 0 (* Will never be written, because we only write if there is an existing tree. To revisit. *) + | _ -> 0 (* Will never happen, because we ran ensure_minimal_struct_tree *) in let p_struct_elem_first_page = Pdf.addobj pdf @@ -346,7 +346,7 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce | Some (Pdf.Dictionary d) -> Pdf.replace_chain pdf ["/Root"; "/StructTreeRoot"; "/K"] (Pdf.Array (prepending_structitems @ [Pdf.Dictionary d])) | _ -> - () (* None found. In future, may fabricate. For now, no. *) + () end end; let labels' = label::map (fun l -> {l with Pdfpagelabels.startpage = l.Pdfpagelabels.startpage + toc_pages_len}) labels in