From f7afbb614f940098163ad14cf885ba8de68128a3 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 20 Jun 2023 15:31:19 +0100
Subject: [PATCH] Tidying up

---
 Changes      | 1 -
 cpdfannot.ml | 5 +----
 2 files changed, 1 insertion(+), 5 deletions(-)

diff --git a/Changes b/Changes
index 69c75e2..fedfa19 100644
--- a/Changes
+++ b/Changes
@@ -23,7 +23,6 @@ o Preserve /GoTo actions in bookmarks when merging
 o UTF8 option for JSON output
 o -info now shows object stream, /ID data, page mode and layout
 o More options for viewer preference control
-o Export some PNGs directly, rather than via an external program
 o More default colours, by using the CSS colour list
 
 Fixes:
diff --git a/cpdfannot.ml b/cpdfannot.ml
index 91ffbee..bef91a0 100644
--- a/cpdfannot.ml
+++ b/cpdfannot.ml
@@ -55,14 +55,11 @@ let rewrite_destinations f pdf annot =
           end
      | None -> annot
 
-(* We exclude the same annotations as the XFDF spec does *)
+(* We exclude the same annotations as the XFDF spec does. *)
 let excluded pdf annot =
   match Pdf.lookup_direct pdf "/Subtype" annot with
   | Some (Pdf.Name ("/Movie" | "/Widget" | "/Screen" | "/PrinterMark" | "/TrapNet")) -> true
   | _ -> false
-(* Printf.printf "Skipping %s\n" n; true
-  | Some (Pdf.Name x) ->
-      Printf.printf "Including %s\n" x; false*)
 
 let extra = ref []