fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2021-11-02 16:10:30 +00:00
parent dfee9e4619
commit 2c6c357bdc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdf.ml
View File

@ -1551,7 +1551,7 @@ let
make_font embed (Pdftext.string_of_standard_font f) make_font embed (Pdftext.string_of_standard_font f)
| None -> | None ->
let firstpage = let firstpage =
List.nth (Pdfpage.pages_of_pagetree pdf) (hd pages + 1) List.nth (Pdfpage.pages_of_pagetree pdf) (hd pages - 1)
in in
match Pdf.lookup_direct pdf "/Font" firstpage.Pdfpage.resources with match Pdf.lookup_direct pdf "/Font" firstpage.Pdfpage.resources with
| Some fontdict -> | Some fontdict ->