# HG changeset patch
# User wenzelm
# Date 1195398612 -3600
# Node ID 0337e3df3187a483035e66d7f5bc20b181e42e9b
# Parent  4028958d19ff37374e804f9068909cbf04d4e9f1
removed unused inform_file_processed;
proper_inform_file_processed: check before change (avoids non-linear update);
avoid Path.explode here (liberal low-level file names);

diff -r 4028958d19ff -r 0337e3df3187 src/Pure/ProofGeneral/proof_general_emacs.ML
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Sun Nov 18 16:10:11 2007 +0100
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Sun Nov 18 16:10:12 2007 +0100
@@ -166,24 +166,30 @@
 
 (* get informed about files *)
 
-val thy_name = perhaps (try (unsuffix ".thy")) o List.last o space_explode "/";
+local
 
-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;
+(*liberal low-level version*)
+val thy_name = perhaps (try (unsuffix ".thy")) o List.last o space_explode "/";
+val thy_path = ThyLoad.thy_path o thy_name;
+
+in
+
+val check_thy = ThyInfo.check_known_thy o thy_name;
 
 fun proper_inform_file_processed file () =
-  let val name = thy_name file in
-    if ThyInfo.known_thy name then
-     (ThyInfo.touch_child_thys name;
-      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
-  end;
+  let
+    val name = thy_name file;
+    val _ = ThyInfo.touch_child_thys name;
+    val _ = ThyInfo.register_thy name handle ERROR msg =>
+      (warning (cat_lines [msg, "Failed to register theory: " ^ quote name]);
+        tell_file_retracted (thy_path file));
+  in () end;
 
-fun vacuous_inform_file_processed file () =
- (warning ("No theory " ^ quote (thy_name file));
-  tell_file_retracted (Path.base (Path.explode file)));
+fun vacuous_inform_file_processed file () = tell_file_retracted (thy_path file);
+
+val inform_file_retracted = ThyInfo.if_known_thy ThyInfo.remove_thy o thy_name;
+
+end;
 
 
 (* restart top-level loop (keeps most state information) *)
@@ -246,9 +252,9 @@
 fun inform_file_processedP () =
   OuterSyntax.improper_command "ProofGeneral.inform_file_processed" "(internal)" K.control
     (P.name >> (fn file => Toplevel.no_timing o
-      Toplevel.init_empty (vacuous_inform_file_processed file) o
+      Toplevel.init_empty (K true) (vacuous_inform_file_processed file) o
       Toplevel.kill o
-      Toplevel.init_empty (proper_inform_file_processed file)));
+      Toplevel.init_empty (fn _ => check_thy file) (proper_inform_file_processed file)));
 
 fun inform_file_retractedP () =
   OuterSyntax.improper_command "ProofGeneral.inform_file_retracted" "(internal)" K.control