From 6053f79a578540667d41ec535659fb46aad173d7 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 21 Feb 2025 13:05:33 +0000
Subject: [PATCH] Renaming

---
 cpdfua.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cpdfua.ml b/cpdfua.ml
index 68581ee..b185525 100644
--- a/cpdfua.ml
+++ b/cpdfua.ml
@@ -1494,7 +1494,7 @@ let check_unicode tu n =
 let matterhorn_31_028 _ _ pdf =
   iter
     (fun i ->
-      let tu = (Pdfcmap.parse_tounicode pdf (Pdf.lookup_obj pdf i)).map in
+      let tu = (Pdfcmap.parse_cmap pdf (Pdf.lookup_obj pdf i)).map in
         if check_unicode tu 0 then merror ())
     (all_tounicodes pdf)
 
@@ -1503,7 +1503,7 @@ let matterhorn_31_028 _ _ pdf =
 let matterhorn_31_029 _ _ pdf =
   iter
     (fun i ->
-      let tu = (Pdfcmap.parse_tounicode pdf (Pdf.lookup_obj pdf i)).map in
+      let tu = (Pdfcmap.parse_cmap pdf (Pdf.lookup_obj pdf i)).map in
         if check_unicode tu 0xFEFF || check_unicode tu 0xFFFE then merror ())
     (all_tounicodes pdf)