# HG changeset patch
# User wenzelm
# Date 1185836192 -7200
# Node ID 3ba5d68e076b142b39b2ca50aea6c8dd2eb7b9f6
# Parent  04b28c723d43eeff5c136831055d2fe2bdc9504a
ThyInfo.register_thy;

diff -r 04b28c723d43 -r 3ba5d68e076b src/Pure/ProofGeneral/proof_general_emacs.ML
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Tue Jul 31 00:56:31 2007 +0200
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Tue Jul 31 00:56:32 2007 +0200
@@ -169,7 +169,7 @@
   let val name = thy_name file in
     if ThyInfo.known_thy name then
      (ThyInfo.touch_child_thys name;
-      ThyInfo.pretend_use_thy_only name handle ERROR msg =>
+      ThyInfo.register_thy name handle ERROR msg =>
        (warning (cat_lines [msg, "Failed to register theory: " ^ quote name]);
         tell_file_retracted (Path.base (Path.explode file))))
     else raise Toplevel.UNDEF
diff -r 04b28c723d43 -r 3ba5d68e076b src/Pure/ProofGeneral/proof_general_pgip.ML
--- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Tue Jul 31 00:56:31 2007 +0200
+++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Tue Jul 31 00:56:32 2007 +0200
@@ -356,7 +356,7 @@
   let val name = thy_name path in
     if Toplevel.is_toplevel state andalso ThyInfo.known_thy name then
      (ThyInfo.touch_child_thys name;
-      ThyInfo.pretend_use_thy_only name handle ERROR msg =>
+      ThyInfo.register_thy name handle ERROR msg =>
        (warning (cat_lines [msg, "Failed to register theory: " ^ quote name]);
         tell_file_retracted true (Path.base path)))
     else raise Toplevel.UNDEF