Fix font choosing regression in v2.5

2022-01-31 12:36:31 +00:00 · 2022-01-31 12:36:31 +00:00 · 84841250eb
parent 97cd4c39c5
commit 84841250eb
1 changed files with 5 additions and 1 deletions
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@ -1095,7 +1095,11 @@ let setfont f =
    | Some x -> StandardFont x
    | None -> OtherFont (convert f)
    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 =
  args.extract_text_font_size <- Some f