src/Pure/Thy/latex.ML
changeset 11012 8eb472444705
parent 10955 36741b4fe109
child 11719 49c14348a42b
     1.1 --- a/src/Pure/Thy/latex.ML	Wed Jan 31 22:15:53 2001 +0100
     1.2 +++ b/src/Pure/Thy/latex.ML	Wed Jan 31 22:16:22 2001 +0100
     1.3 @@ -92,10 +92,6 @@
     1.4  
     1.5  val invisible_token = T.keyword_with (equal ";") orf T.is_kind T.Comment;
     1.6  
     1.7 -fun strip_blanks s =
     1.8 -  implode (#1 (Library.take_suffix Symbol.is_blank
     1.9 -    (#2 (Library.take_prefix Symbol.is_blank (explode s)))));
    1.10 -
    1.11  fun output_tok (Basic tok, _) =
    1.12        let val s = T.val_of tok in
    1.13          if invisible_token tok then ""
    1.14 @@ -107,10 +103,11 @@
    1.15          else if T.is_kind T.Verbatim tok then output_syms (enclose "{*" "*}" s)
    1.16          else output_syms s
    1.17        end
    1.18 -  | output_tok (Markup cmd, txt) = "%\n\\isamarkup" ^ cmd ^ "{" ^ strip_blanks txt ^ "%\n}\n"
    1.19 +  | output_tok (Markup cmd, txt) =
    1.20 +      "%\n\\isamarkup" ^ cmd ^ "{" ^ Symbol.strip_blanks txt ^ "%\n}\n"
    1.21    | output_tok (MarkupEnv cmd, txt) = "%\n\\begin{isamarkup" ^ cmd ^ "}%\n" ^
    1.22 -      strip_blanks txt ^ "%\n\\end{isamarkup" ^ cmd ^ "}%\n"
    1.23 -  | output_tok (Verbatim, txt) = "%\n" ^ strip_blanks txt ^ "\n";
    1.24 +      Symbol.strip_blanks txt ^ "%\n\\end{isamarkup" ^ cmd ^ "}%\n"
    1.25 +  | output_tok (Verbatim, txt) = "%\n" ^ Symbol.strip_blanks txt ^ "\n";
    1.26  
    1.27  
    1.28  val output_tokens = implode o map output_tok;