# HG changeset patch
# User wenzelm
# Date 1205617241 -3600
# Node ID a71ea4a57f446c29cc60cd75fb800a1ff17b0cd6
# Parent  009e56d16080a361878b910ca6daf2b3bbb24d86
tuned;

diff -r 009e56d16080 -r a71ea4a57f44 src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Sat Mar 15 22:07:34 2008 +0100
+++ b/src/Pure/Isar/toplevel.ML	Sat Mar 15 22:40:41 2008 +0100
@@ -273,8 +273,8 @@
     fun exn_msg _ (CONTEXT (ctxt, exn)) = exn_msg (SOME ctxt) exn
       | exn_msg ctxt (Exn.EXCEPTIONS (exns, "")) = cat_lines (map (exn_msg ctxt) exns)
       | exn_msg ctxt (Exn.EXCEPTIONS (exns, msg)) = cat_lines (map (exn_msg ctxt) exns @ [msg])
-      | exn_msg ctxt (EXCURSION_FAIL (exn, loc)) = exn_msg ctxt exn ^
-          Output.escape (Markup.enclose Markup.location (Output.output ("\n" ^ loc)))
+      | exn_msg ctxt (EXCURSION_FAIL (exn, loc)) =
+          exn_msg ctxt exn ^ Markup.markup Markup.location ("\n" ^ loc)
       | exn_msg _ TERMINATE = "Exit."
       | exn_msg _ RESTART = "Restart."
       | exn_msg _ Interrupt = "Interrupt."