Make -merge-add-bookmarks work with UTF8 filenames

2022-05-07 13:57:51 +01:00 · 2022-05-07 13:57:51 +01:00 · 7f9bcc5ddf
parent c0e818c3a5
commit 7f9bcc5ddf
1 changed files with 1 additions and 1 deletions
--- a/cpdfbookmarks.ml
+++ b/cpdfbookmarks.ml
@ -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