Make -merge-add-bookmarks work with UTF8 filenames

This commit is contained in:
John Whitington 2022-05-07 13:57:51 +01:00
parent c0e818c3a5
commit 7f9bcc5ddf
1 changed files with 1 additions and 1 deletions

View File

@ -376,7 +376,7 @@ let add_bookmark_title filename use_title pdf =
in
let newmarks =
{Pdfmarks.level = 0;
Pdfmarks.text = title;
Pdfmarks.text = Pdftext.pdfdocstring_of_utf8 title;
Pdfmarks.target = Pdfdest.XYZ (Pdfdest.PageObject page1objnum, None, None, None);
Pdfmarks.isopen = false}
::map (function m -> {m with Pdfmarks.level = m.Pdfmarks.level + 1}) marks