X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Futf8_macros%2Futf8Macro.ml;h=e5fca10c48cc06e3a428865ea94190758f7cbc3f;hb=d3e3b22ce9cca9e4ca80f75a6bdc4c2df93efb0b;hp=51465046bec635f52dcc9428dfa5e9f6103bb122;hpb=7b7e9b07ee3bb4d12d522b2deae3aa5b62df4793;p=helm.git

diff --git a/helm/ocaml/utf8_macros/utf8Macro.ml b/helm/ocaml/utf8_macros/utf8Macro.ml
index 51465046b..e5fca10c4 100644
--- a/helm/ocaml/utf8_macros/utf8Macro.ml
+++ b/helm/ocaml/utf8_macros/utf8Macro.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 exception Macro_not_found of string
 exception Utf8_not_found of string
 
@@ -38,3 +40,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
+