Remove add_master_files which stripped paths for retracted files. Emacs PG already supports full paths here.
authoraspinall
Sun, 26 Nov 2006 23:09:25 +0100
changeset 21538 678299eac351
parent 21537 45b3a85ee548
child 21539 c5cf9243ad62
Remove add_master_files which stripped paths for retracted files. Emacs PG already supports full paths here.
src/Pure/proof_general.ML
--- a/src/Pure/proof_general.ML	Sun Nov 26 18:07:36 2006 +0100
+++ b/src/Pure/proof_general.ML	Sun Nov 26 23:09:25 2006 +0100
@@ -387,15 +387,11 @@
 
 local
 
-fun add_master_files name files =
-  let val masters = [ThyLoad.thy_path name, ThyLoad.ml_path name]
-  in masters @ subtract (op = o pairself Path.base) masters files end;
-
 fun trace_action action name =
   if action = ThyInfo.Update then
     List.app tell_file_loaded (ThyInfo.loaded_files name)
   else if action = ThyInfo.Outdate orelse action = ThyInfo.Remove then
-    List.app tell_file_retracted (add_master_files name (ThyInfo.loaded_files name))
+    List.app tell_file_retracted (ThyInfo.loaded_files name)
   else ();
 
 in
@@ -1321,7 +1317,7 @@
      | "retractfile"    => (case !currently_open_file of
                                 SOME f => raise PGIP ("retractfile when a file is open!")
                               | NONE => inform_file_retracted (fileurl_of attrs))
-     | "changecwd"      => changecwd (dirname_attr attrs)
+     | "changecwd"      => changecwd (fileurl_of attrs)
      | "systemcmd"      => isarscript data
      (* unofficial command for debugging *)
      | "quitpgip" => raise PGIP_QUIT