token trans: removed \mbox to achieve proper italic correction;
authorwenzelm
Wed, 30 Aug 2000 17:54:05 +0200
changeset 9749 36ddd544a18d
parent 9748 67486cf2f8f6
child 9750 270cd9831e7b
token trans: removed \mbox to achieve proper italic correction;
src/Pure/Thy/latex.ML
--- a/src/Pure/Thy/latex.ML	Wed Aug 30 17:53:23 2000 +0200
+++ b/src/Pure/Thy/latex.ML	Wed Aug 30 17:54:05 2000 +0200
@@ -143,8 +143,7 @@
   in (output_symbols syms, real (Symbol.length syms)) end;
 
 val token_translation =
-  map (fn s => (latexN, s, apfst (enclose "\\mbox{" "}") o latex_output))
-    Syntax.standard_token_classes;
+  map (fn s => (latexN, s, latex_output)) Syntax.standard_token_classes;
 
 val _ = Symbol.add_mode latexN latex_output;
 val setup = [Theory.add_tokentrfuns token_translation];