Tidying up

This commit is contained in:
John Whitington 2023-06-20 15:31:19 +01:00
parent 6f345c4b80
commit f7afbb614f
2 changed files with 1 additions and 5 deletions

View File

@ -23,7 +23,6 @@ o Preserve /GoTo actions in bookmarks when merging
o UTF8 option for JSON output
o -info now shows object stream, /ID data, page mode and layout
o More options for viewer preference control
o Export some PNGs directly, rather than via an external program
o More default colours, by using the CSS colour list
Fixes:

View File

@ -55,14 +55,11 @@ let rewrite_destinations f pdf annot =
end
| None -> annot
(* We exclude the same annotations as the XFDF spec does *)
(* We exclude the same annotations as the XFDF spec does. *)
let excluded pdf annot =
match Pdf.lookup_direct pdf "/Subtype" annot with
| Some (Pdf.Name ("/Movie" | "/Widget" | "/Screen" | "/PrinterMark" | "/TrapNet")) -> true
| _ -> false
(* Printf.printf "Skipping %s\n" n; true
| Some (Pdf.Name x) ->
Printf.printf "Including %s\n" x; false*)
let extra = ref []