# HG changeset patch
# User wenzelm
# Date 1185132058 -7200
# Node ID fcfacb6670ed9c7a645834711aeda823cc953fbd
# Parent  039ae566a4a23c3348473092c7be4c492d419033
inform_file_processed: tuned msg, no state;

diff -r 039ae566a4a2 -r fcfacb6670ed src/Pure/ProofGeneral/proof_general_emacs.ML
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Sun Jul 22 21:20:56 2007 +0200
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Sun Jul 22 21:20:58 2007 +0200
@@ -165,17 +165,17 @@
 val inform_file_retracted = ThyInfo.if_known_thy ThyInfo.remove_thy o thy_name;
 val inform_file_processed = ThyInfo.if_known_thy ThyInfo.touch_child_thys o thy_name;
 
-fun proper_inform_file_processed file state =
+fun proper_inform_file_processed file () =
   let val name = thy_name file in
-    if Toplevel.is_toplevel state andalso ThyInfo.known_thy name then
+    if ThyInfo.known_thy name then
      (ThyInfo.touch_child_thys name;
       ThyInfo.pretend_use_thy_only name handle ERROR msg =>
-       (warning msg; warning ("Failed to register theory: " ^ quote name);
+       (warning (cat_lines [msg, "Failed to register theory: " ^ quote name]);
         tell_file_retracted (Path.base (Path.explode file))))
     else raise Toplevel.UNDEF
   end;
 
-fun vacuous_inform_file_processed file state =
+fun vacuous_inform_file_processed file () =
  (warning ("No theory " ^ quote (thy_name file));
   tell_file_retracted (Path.base (Path.explode file)));
 
diff -r 039ae566a4a2 -r fcfacb6670ed src/Pure/ProofGeneral/proof_general_pgip.ML
--- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Sun Jul 22 21:20:56 2007 +0200
+++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Sun Jul 22 21:20:58 2007 +0200
@@ -357,7 +357,7 @@
     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 =>
-       (warning msg; warning ("Failed to register theory: " ^ quote name);
+       (warning (cat_lines [msg, "Failed to register theory: " ^ quote name]);
         tell_file_retracted true (Path.base path)))
     else raise Toplevel.UNDEF
   end;