Tidying
This commit is contained in:
parent
a3e59b8ba6
commit
39b691d19c
3
cpdf.ml
3
cpdf.ml
|
@ -2687,7 +2687,8 @@ let copy_annotations_page topdf frompdf frompage topage =
|
||||||
in
|
in
|
||||||
List.iter
|
List.iter
|
||||||
(function
|
(function
|
||||||
(* FIXME: We assume they are indirects. Must also do directs *)
|
(* FIXME: We assume they are indirects. Must also do direct, though
|
||||||
|
rare.*)
|
||||||
Pdf.Indirect x ->
|
Pdf.Indirect x ->
|
||||||
(*Printf.printf "Copying annotation %s which is\n%s\n"
|
(*Printf.printf "Copying annotation %s which is\n%s\n"
|
||||||
(Pdfwrite.string_of_pdf (Pdf.Indirect x))
|
(Pdfwrite.string_of_pdf (Pdf.Indirect x))
|
||||||
|
|
Loading…
Reference in New Issue