mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-02-03 03:47:45 +01:00
more
This commit is contained in:
parent
dfee9e4619
commit
2c6c357bdc
2
cpdf.ml
2
cpdf.ml
@ -1551,7 +1551,7 @@ let
|
||||
make_font embed (Pdftext.string_of_standard_font f)
|
||||
| None ->
|
||||
let firstpage =
|
||||
List.nth (Pdfpage.pages_of_pagetree pdf) (hd pages + 1)
|
||||
List.nth (Pdfpage.pages_of_pagetree pdf) (hd pages - 1)
|
||||
in
|
||||
match Pdf.lookup_direct pdf "/Font" firstpage.Pdfpage.resources with
|
||||
| Some fontdict ->
|
||||
|
Loading…
x
Reference in New Issue
Block a user