Restore proper font cleaving

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