Fix font choosing regression in v2.5
This commit is contained in:
parent
97cd4c39c5
commit
84841250eb
|
@ -1095,7 +1095,11 @@ let setfont f =
|
||||||
| Some x -> StandardFont x
|
| Some x -> StandardFont x
|
||||||
| None -> OtherFont (convert f)
|
| None -> OtherFont (convert f)
|
||||||
end;
|
end;
|
||||||
args.fontname <- convert f
|
args.fontname <-
|
||||||
|
begin match Pdftext.standard_font_of_name ("/" ^ f) with
|
||||||
|
| Some x -> f
|
||||||
|
| None -> convert f
|
||||||
|
end
|
||||||
|
|
||||||
let setextracttextfontsize f =
|
let setextracttextfontsize f =
|
||||||
args.extract_text_font_size <- Some f
|
args.extract_text_font_size <- Some f
|
||||||
|
|
Loading…
Reference in New Issue