# HG changeset patch
# User wenzelm
# Date 1216115404 -7200
# Node ID 86cf8f2493ca85c5d82b2563977358492f47c4ed
# Parent  6683cdb94af8c29b61b2b54ca95f8fe34e6c27a4
simplified commit_exit;

diff -r 6683cdb94af8 -r 86cf8f2493ca src/Pure/ProofGeneral/proof_general_emacs.ML
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Tue Jul 15 11:50:03 2008 +0200
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Tue Jul 15 11:50:04 2008 +0200
@@ -142,7 +142,7 @@
     val _ = name = "" andalso error ("Bad file name: " ^ quote file);
     val _ =
       if ThyInfo.check_known_thy name then
-        (Isar.commit_exit (); ThyInfo.touch_child_thys name; ThyInfo.register_thy name)
+        (Isar.>> Toplevel.commit_exit; ThyInfo.touch_child_thys name; ThyInfo.register_thy name)
           handle ERROR msg =>
             (warning (cat_lines ["Failed to register theory: " ^ quote name, msg]);
               tell_file_retracted (ThyLoad.thy_path name))