From 7f9bcc5ddf2cd34a4ca5a6ca2a6d49d7ef459757 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Sat, 7 May 2022 13:57:51 +0100
Subject: [PATCH] Make -merge-add-bookmarks work with UTF8 filenames

---
 cpdfbookmarks.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfbookmarks.ml b/cpdfbookmarks.ml
index 20ce37a..f0207a6 100644
--- 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