doc-src/antiquote_setup.ML
changeset 30120 aaa4667285c8
parent 29736 ec3fc818b82e
child 30242 aea5d7fa7ef5
     1.1 --- a/doc-src/antiquote_setup.ML	Thu Feb 26 20:41:28 2009 +0100
     1.2 +++ b/doc-src/antiquote_setup.ML	Thu Feb 26 20:44:07 2009 +0100
     1.3 @@ -16,10 +16,11 @@
     1.4  
     1.5  val clean_string = translate
     1.6    (fn "_" => "\\_"
     1.7 +    | "#" => "\\#"
     1.8      | "<" => "$<$"
     1.9      | ">" => "$>$"
    1.10 -    | "#" => "\\#"
    1.11      | "{" => "\\{"
    1.12 +    | "|" => "$\\mid$"
    1.13      | "}" => "\\}"
    1.14      | "\\<dash>" => "-"
    1.15      | c => c);
    1.16 @@ -68,8 +69,9 @@
    1.17      val txt' = if kind = "" then txt else kind ^ " " ^ txt;
    1.18      val _ = writeln (ml (txt1, txt2));
    1.19      val _ = ML_Context.eval_in (SOME ctxt) false Position.none (ml (txt1, txt2));
    1.20 +    val kind' = if kind = "" then "ML" else "ML " ^ kind;
    1.21    in
    1.22 -    "\\indexml" ^ kind ^ enclose "{" "}" (clean_string txt1) ^
    1.23 +    "\\indexdef{}{" ^ kind' ^ "}{" ^ clean_string txt1 ^ "}" ^
    1.24      (txt'
    1.25      |> (if ! O.quotes then quote else I)
    1.26      |> (if ! O.display then enclose "\\begin{verbatim}\n" "\n\\end{verbatim}"