# HG changeset patch
# User wenzelm
# Date 1165952967 -3600
# Node ID 6035bfcd72d836ecdd73f2cb0be27d3aac29af55
# Parent  a85e3bbc76fb368fa08609e104e9bec5937bff7c
classified show/thus as prf_asm_goal, which is usually hilited in PG;

diff -r a85e3bbc76fb -r 6035bfcd72d8 src/Pure/Isar/isar_syn.ML
--- a/src/Pure/Isar/isar_syn.ML	Tue Dec 12 20:49:26 2006 +0100
+++ b/src/Pure/Isar/isar_syn.ML	Tue Dec 12 20:49:27 2006 +0100
@@ -372,7 +372,7 @@
         -- P.opt_begin
       >> (fn (((is_open, name), (expr, elems)), begin) =>
           Toplevel.begin_local_theory begin
-            (Locale.add_locale is_open name expr elems #-> TheoryTarget.begin)));
+            (Locale.add_locale is_open name expr elems #-> TheoryTarget.begin false)));
 
 val interpretationP =
   OuterSyntax.command "interpretation"
@@ -420,12 +420,12 @@
 
 val showP =
   OuterSyntax.command "show" "state local goal, solving current obligation"
-    (K.tag_proof K.prf_goal)
+    (K.tag_proof K.prf_asm_goal)
     (P.statement >> ((Toplevel.print oo Toplevel.proof') o IsarCmd.show));
 
 val thusP =
   OuterSyntax.command "thus" "abbreviates \"then show\""
-    (K.tag_proof K.prf_goal)
+    (K.tag_proof K.prf_asm_goal)
     (P.statement >> ((Toplevel.print oo Toplevel.proof') o IsarCmd.thus));