From 2aa8035a70ac1c44271dab5e2d02d745f2fc1101 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Mon, 19 Aug 2019 11:49:53 +0100
Subject: [PATCH] Fixes -shift to do annotations properly

---
 cpdf.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdf.ml b/cpdf.ml
index 68f3ec8..f579616 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -2318,7 +2318,7 @@ let shift_page ?(fast=false) dxdylist pdf pnum page =
       let page =
         change_pattern_matrices_page pdf (Pdftransform.mktranslate ~-.dx ~-.dy) page
       in
-        transform_annotations pdf (Pdftransform.mktranslate ~-.dx ~-.dy) page.Pdfpage.rest;
+        transform_annotations pdf (Pdftransform.mktranslate dx dy) page.Pdfpage.rest;
         Pdfpage.prepend_operators pdf [transform_op] ~fast page
 
 let shift_pdf ?(fast=false) dxdylist pdf range =