more PIDE markup;

--- a/src/Pure/PIDE/markup.ML	Sat Mar 05 17:01:45 2016 +0100
+++ b/src/Pure/PIDE/markup.ML	Sat Mar 05 19:14:04 2016 +0100
@@ -40,6 +40,7 @@
   val language_document: bool -> T
   val language_antiquotation: T
   val language_text: bool -> T
+  val language_verbatim: bool -> T
   val language_rail: T
   val language_path: T
   val bindingN: string val binding: T
@@ -316,6 +317,7 @@
 val language_antiquotation =
   language {name = "antiquotation", symbols = true, antiquotes = false, delimited = true};
 val language_text = language' {name = "text", symbols = true, antiquotes = false};
+val language_verbatim = language' {name = "verbatim", symbols = true, antiquotes = false};
 val language_rail = language {name = "rail", symbols = true, antiquotes = true, delimited = true};
 val language_path = language {name = "path", symbols = false, antiquotes = false, delimited = true};
 

--- a/src/Pure/Thy/document_antiquotations.ML	Sat Mar 05 17:01:45 2016 +0100
+++ b/src/Pure/Thy/document_antiquotations.ML	Sat Mar 05 19:14:04 2016 +0100
@@ -154,8 +154,11 @@
 
 val _ =
   Theory.setup
-    (Thy_Output.antiquotation @{binding verbatim} (Scan.lift Args.text)
-      (Thy_Output.verbatim_text o #context));
+    (Thy_Output.antiquotation @{binding verbatim} (Scan.lift Args.text_input)
+      (fn {context = ctxt, ...} => fn source =>
+       (Context_Position.report ctxt (Input.pos_of source)
+          (Markup.language_verbatim (Input.is_delimited source));
+        Thy_Output.verbatim_text ctxt (Input.source_content source))));
 
 
 (* ML text *)