output: uninterpreted raw symbols -- these are usually LaTeX macros;
authorwenzelm
Mon, 18 Sep 2006 19:12:48 +0200
changeset 20576 8b1591393b8d
parent 20575 6b1c69265331
child 20577 a96883a6d709
output: uninterpreted raw symbols -- these are usually LaTeX macros;
src/Pure/Thy/html.ML
--- a/src/Pure/Thy/html.ML	Mon Sep 18 19:12:47 2006 +0200
+++ b/src/Pure/Thy/html.ML	Mon Sep 18 19:12:48 2006 +0200
@@ -204,10 +204,9 @@
   val escape = fn "<" => "&lt;" | ">" => "&gt;" | "&" => "&amp;" | c => c;
 
   fun output_sym s =
-    if Symbol.is_raw s then (1.0, Symbol.decode_raw s)
-    else
-      (case Symtab.lookup html_syms s of SOME x => x
-      | NONE => (real (size s), translate_string escape s));
+    (case Symtab.lookup html_syms s of
+      SOME x => x
+    | NONE => (real (size s), translate_string escape s));
 
   fun output_sub s = apsnd (enclose "<sub>" "</sub>") (output_sym s);
   fun output_sup s = apsnd (enclose "<sup>" "</sup>") (output_sym s);