fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington
2024-10-04 15:27:40 +01:00
parent 72b2a4f0c2
commit 5c4db2b52d
1 changed files with 0 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
cpdftexttopdf.ml
View File

@@ -155,7 +155,6 @@ let typeset ~process_struct_tree ?subformat ?title ~papersize ~font ~fontsize te
if subformat = Some Cpdfua.PDFUA2 then
Pdf.addobj_given_num pdf (document, Pdf.Dictionary [("/K", Pdf.Array topks); ("/P", Pdf.Indirect str); ("/S", Pdf.Name "/Document"); ("/NS", Pdf.Indirect namespace)]);
let parent_tree =
(* We are making a map of (page number (/StructParents entry) to list of /P nodes, one for each MCID on that page in order. *)
let pairs =
map
(fun pn ->