fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-04-24 14:58:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix double document

Browse Source
This commit is contained in:
John Whitington 2024-09-18 15:15:07 +01:00
parent cc01c8ddc1
commit e3f9631656
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfdraw.ml
View File

@ -425,8 +425,8 @@ let rec ops_of_drawop struct_tree dryrun pdf endpage filename bates batespad num
if not dryrun then structdata := StDataMCID (s, m, None)::!structdata; if not dryrun then structdata := StDataMCID (s, m, None)::!structdata;
[Pdfops.Op_BDC (s, Pdf.Dictionary ["/MCID", Pdf.Integer m])] [Pdfops.Op_BDC (s, Pdf.Dictionary ["/MCID", Pdf.Integer m])]
| EndTag -> [Pdfops.Op_EMC] | EndTag -> [Pdfops.Op_EMC]
| STag s -> structdata =| StDataBeginTree s; [] | STag s -> if not dryrun then structdata =| StDataBeginTree s; []
| EndSTag -> structdata =| StDataEndTree; [] | EndSTag -> if not dryrun then structdata =| StDataEndTree; []
| BeginArtifact -> [Pdfops.Op_BMC "/BeginArtifact"] | BeginArtifact -> [Pdfops.Op_BMC "/BeginArtifact"]
| EndArtifact -> [Pdfops.Op_BMC "/EndArtifact"] | EndArtifact -> [Pdfops.Op_BMC "/EndArtifact"]