From 5c4db2b52d6d5047b5e3def4213f2a9deb55447b Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 4 Oct 2024 15:27:40 +0100
Subject: [PATCH] more

---
 cpdftexttopdf.ml | 1 -
 1 file changed, 1 deletion(-)

diff --git a/cpdftexttopdf.ml b/cpdftexttopdf.ml
index ea30c7d..fc6358d 100644
--- a/cpdftexttopdf.ml
+++ b/cpdftexttopdf.ml
@@ -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 ->