fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfbookmarks.ml
View File

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