This commit is contained in:
John Whitington
2023-02-20 19:39:42 +00:00
parent d12f1cfa46
commit 060fbd0c83
2 changed files with 8 additions and 4 deletions

View File

@ -98,14 +98,13 @@ let postprocess_json_pdf objnum_to_serial_map pdf obj =
| Some s -> Pdf.add_dict_entry obj "/Parent" (Pdf.Integer s)
| None -> Printf.eprintf "Warning: Cpdfannot.process_extra_object: could not find serial number\n"; obj
end
| _ -> ()
(*(* If not a popup annotation, remove /Parent. It drags in lots of
| _ ->
(* If not a popup annotation, remove /Parent. It drags in lots of
extra objects (the whole page tree!) with a widget
annotation, and we are unlikely to be able to round-trip them
anyway. One day, if we can match FDF properly, it might be
possible, but not now. *)
Pdf.remove_dict_entry obj "/Parent"*)
Pdf.remove_dict_entry obj "/Parent"
end
in
begin match obj with