diff options
-rw-r--r-- | ocamldoc/odoc_latex.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ocamldoc/odoc_latex.ml b/ocamldoc/odoc_latex.ml index c58e2130e..b3aad01ff 100644 --- a/ocamldoc/odoc_latex.ml +++ b/ocamldoc/odoc_latex.ml @@ -121,7 +121,7 @@ class text = let buf = Buffer.create len in for i = 0 to len - 1 do match name.[i] with - '_' -> if no_ then () else Buffer.add_char buf '_' + '_' -> if no_ then Buffer.add_string buf "!!!!" else Buffer.add_char buf '_' | '~' -> if no_ then () else Buffer.add_char buf '~' | '%' -> Buffer.add_string buf (if no_ then "percent" else "%") | '@' -> Buffer.add_string buf "\"@" |