From 126b10bd61ff23e0bf69fac2a5d9e2705f224e01 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 13 Jul 2023 16:26:05 +0100
Subject: [PATCH] Restore proper font cleaving

---
 cpdftruetype.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/cpdftruetype.ml b/cpdftruetype.ml
index 11d9d77..2e58bbf 100644
--- a/cpdftruetype.ml
+++ b/cpdftruetype.ml
@@ -496,14 +496,13 @@ let write_font filename data =
     close_out fh
 
 let find_main encoding subset =
-  (take subset 5, [drop subset 5])
-  (*let encoding_table = Pdftext.table_of_encoding encoding in
+  let encoding_table = Pdftext.table_of_encoding encoding in
   let first, rest =
     List.partition
       (fun u -> try ignore (Hashtbl.find encoding_table u); true with Not_found -> false)
       subset
   in
-    (first, splitinto 224 rest)*)
+    (first, splitinto 224 rest)
 
 let parse ~subset data encoding =
   let mk_b byte_offset = bitbytes_of_input (let i = input_of_bytes data in i.seek_in byte_offset; i) in