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

Remove annotations when making padding pages

Browse Source
This commit is contained in:
John Whitington
2019-08-16 15:19:55 +01:00
parent 3807738491
commit 9549f8cc02
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
cpdf.ml
View File

@@ -2112,7 +2112,7 @@ let pad padwith range pdf isbefore =
Pdfpage.mediabox = (select (n + i) pages).Pdfpage.mediabox; Pdfpage.mediabox = (select (n + i) pages).Pdfpage.mediabox;
Pdfpage.resources = Pdf.Dictionary []; Pdfpage.resources = Pdf.Dictionary [];
Pdfpage.rotate = (select (n + i) pages).Pdfpage.rotate; Pdfpage.rotate = (select (n + i) pages).Pdfpage.rotate;
Pdfpage.rest = (select (n + i) pages).Pdfpage.rest}) Pdfpage.rest = Pdf.remove_dict_entry ((select (n + i) pages).Pdfpage.rest) "/Annots"})
range range
in in
let pages' = insert_after_many pages (combine range blankpages) in let pages' = insert_after_many pages (combine range blankpages) in