Tidying

2015-07-29 18:04:45 +01:00 · 2015-07-29 18:04:45 +01:00 · 39b691d19c
parent a3e59b8ba6
commit 39b691d19c
1 changed files with 2 additions and 1 deletions
--- a/cpdf.ml
+++ b/cpdf.ml
@ -2687,7 +2687,8 @@ let copy_annotations_page topdf frompdf frompage topage =
      in
        List.iter
         (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 ->
              (*Printf.printf "Copying annotation %s which is\n%s\n"
                (Pdfwrite.string_of_pdf (Pdf.Indirect x))