CProp hierarchy is there!

[helm.git] / helm / software / components / content_pres / boxPp.ml

diff --git a/helm/software/components/content_pres/boxPp.ml b/helm/software/components/content_pres/boxPp.ml
index ca51c0ed3e46d8c14730301bd7640bfb598d6a7e..0c18475489b076db0fc5aa1feeb262ec83e21ca9 100644 (file)
--- a/helm/software/components/content_pres/boxPp.ml
+++ b/helm/software/components/content_pres/boxPp.ml
@@ -93,7 +93,7 @@ let fixed_rendering s =
   let s_len = String.length s in
   (fun _ -> s_len, [s])
 
-let render_to_strings ?(map_unicode_to_tex = true) choose_action size markup =
+let render_to_strings ~map_unicode_to_tex choose_action size markup =
   let max_size = max_int in
   let rec aux_box =
     function
@@ -199,7 +199,7 @@ let render_to_strings ?(map_unicode_to_tex = true) choose_action size markup =
             else
               match Utf8Macro.tex_of_unicode s with
               | Some s -> s ^ " "
-              | None -> s
+              | None -> " " ^ s ^ " "
           end else
             s
         in
@@ -240,7 +240,7 @@ let render_to_strings ?(map_unicode_to_tex = true) choose_action size markup =
   in
   snd (aux_mpres markup size)
 
-let render_to_string ?map_unicode_to_tex choose_action size markup =
+let render_to_string ~map_unicode_to_tex choose_action size markup =
   String.concat "\n"
-    (render_to_strings ?map_unicode_to_tex choose_action size markup)
+    (render_to_strings ~map_unicode_to_tex choose_action size markup)