Correct TTF fontname from cpdfcommand.ml

2023-07-17 12:40:49 +01:00 · 2023-07-17 12:40:49 +01:00 · 8ded8853f2
parent cb3f29b59f
commit 8ded8853f2
1 changed files with 3 additions and 5 deletions
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@ -1728,9 +1728,10 @@ let setidironlypdfs () =
 let setnowarnrotate () =
  args.no_warn_rotate <- true

-
 let setfontttf s =
-  args.font <- EmbeddedFont s
+  let fontname, _ = Hashtbl.find ttfs s in
+    args.font <- EmbeddedFont s;
+    args.fontname <- fontname

 let setfontttfencoding s =
  args.fontencoding <-
@ -1759,9 +1760,6 @@ let addop o =
  | (n, ops)::t -> drawops := (n, (o::ops))::t
  | [] -> error "no drawops"

-
-
-
 let endxobj () =
  match !drawops with
  | (n, ops)::t ->