ocaml 3.09 transition

[helm.git] / helm / ocaml / utf8_macros / utf8Macro.ml

diff --git a/helm/ocaml/utf8_macros/utf8Macro.ml b/helm/ocaml/utf8_macros/utf8Macro.ml
index 51465046bec635f52dcc9428dfa5e9f6103bb122..3d0b5bc4c8b26a888fed080c690afa3d3232e838 100644 (file)
--- a/helm/ocaml/utf8_macros/utf8Macro.ml
+++ b/helm/ocaml/utf8_macros/utf8Macro.ml
@@ -38,3 +38,8 @@ let unicode_of_tex s =
     else s
   with Macro_not_found _ -> s
 
+let tex_of_unicode s =
+  try
+    "\\" ^ Hashtbl.find Utf8MacroTable.utf82macro s
+  with Not_found -> s
+