Escape backslashes before all else

This commit is contained in:
John Whitington 2018-04-30 17:42:43 +01:00
parent e8cbf937f6
commit 1635580c73
1 changed files with 1 additions and 1 deletions

View File

@ -1225,7 +1225,7 @@ let list_bookmarks encoding range pdf output =
and nl = int_of_char '\n' and nl = int_of_char '\n'
and n = int_of_char 'n' and n = int_of_char 'n'
and q = int_of_char '\"' in and q = int_of_char '\"' in
replace bs bs bs (replace nl bs n (replace q bs q codepoints)) replace q bs q (replace nl bs n (replace bs bs bs codepoints))
in in
match encoding with match encoding with
| UTF8 -> Pdftext.utf8_of_codepoints escaped | UTF8 -> Pdftext.utf8_of_codepoints escaped