changeset 37949 | 48a874444164 |
parent 37239 | 54b444874be1 |
child 37950 | bc285d91041e |
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML Fri Jul 23 18:42:46 2010 +0200 +++ b/src/Pure/ProofGeneral/proof_general_emacs.ML Sat Jul 24 12:14:53 2010 +0200 @@ -137,7 +137,7 @@ val name = thy_name file; val _ = name = "" andalso error ("Bad file name: " ^ quote file); val _ = - if Thy_Info.check_known_thy name then + if Thy_Info.known_thy name then (Isar.>> (Toplevel.commit_exit Position.none); Thy_Info.touch_child_thys name; Thy_Info.register_thy name) handle ERROR msg =>