fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-17 12:20:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington 2023-02-03 13:01:55 +00:00
parent 496d10dea2
commit 83b5479832
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfsqueeze.ml
View File

@ -237,9 +237,9 @@ let squeeze ?logto ?(pagedata=true) ?(recompress=true) pdf =
ignore (decompress_pdf pdf);
log (Printf.sprintf "Recompressing document\n");
let n = !Pdfcodec.flate_level in
Pdfcodec.flate_level := 9;
ignore (recompress_pdf pdf);
Pdfcodec.flate_level := n
Pdfcodec.flate_level := 9;
ignore (recompress_pdf pdf);
Pdfcodec.flate_level := n
end
else
(* Re-compress processed pagedata, even if recompress not set *)