From 9487eee6a94e6788665e9e9bacbef76c85664eb2 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Mon, 3 Jun 2024 17:08:06 +0100
Subject: [PATCH] Trim extracted structure trees

---
 cpdfua.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfua.ml b/cpdfua.ml
index f5c571d..3bb5adb 100644
--- a/cpdfua.ml
+++ b/cpdfua.ml
@@ -337,7 +337,7 @@ let extract_struct_tree pdf =
       begin match lookup "/StructTreeRoot" d with
       | None -> `List []
       | Some x ->
-          let objs = Pdf.objects_referenced ["/Pg"] [] pdf x in
+          let objs = Pdf.objects_referenced ["/Pg"; "/Obj"; "/Stm"; "/StmOwn"] [] pdf x in
             `List
                (map
                   (fun objnum ->