--- a/doc-src/antiquote_setup.ML Thu Nov 13 21:40:30 2008 +0100
+++ b/doc-src/antiquote_setup.ML Thu Nov 13 21:41:04 2008 +0100
@@ -68,7 +68,7 @@
val _ = ML_Context.eval_in (SOME ctxt) false Position.none (ml (txt1, txt2));
in
"\\indexml" ^ kind ^ enclose "{" "}" (clean_string txt1) ^
- ((if ! O.source then ThyOutput.str_of_source src else txt')
+ (txt'
|> (if ! O.quotes then quote else I)
|> (if ! O.display then enclose "\\begin{verbatim}\n" "\n\\end{verbatim}"
else split_lines #> map verbatim #> space_implode "\\isasep\\isanewline%\n"))