Escape backslashes before all else

2018-04-30 17:42:43 +01:00 · 2018-04-30 17:42:43 +01:00 · 1635580c73
parent e8cbf937f6
commit 1635580c73
1 changed files with 1 additions and 1 deletions
--- a/cpdf.ml
+++ b/cpdf.ml
@ -1225,7 +1225,7 @@ let list_bookmarks encoding range pdf output =
          and nl = int_of_char '\n'
          and n = int_of_char 'n'
          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
          match encoding with
          | UTF8 -> Pdftext.utf8_of_codepoints escaped