# HG changeset patch
# User wenzelm
# Date 1223990173 -7200
# Node ID cdf21c1dfb19af76518c98d873be78992733114a
# Parent  52ec4c827ed4a8ed0a3316f95192c05c10b3ee64
CRITICAL access to preferences;
tuned some interfaces;

diff -r 52ec4c827ed4 -r cdf21c1dfb19 src/Pure/ProofGeneral/proof_general_pgip.ML
--- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Tue Oct 14 15:16:12 2008 +0200
+++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Tue Oct 14 15:16:13 2008 +0200
@@ -21,7 +21,7 @@
   val error_with_pos : PgipTypes.displayarea -> PgipTypes.fatality -> Position.T -> string -> unit
 
   val get_currently_open_file : unit -> Path.T option  (* interface focus *)
-  val add_preference: string -> Preferences.isa_preference -> unit
+  val add_preference: string -> Preferences.preference -> unit
 end
 
 structure ProofGeneralPgip : PROOF_GENERAL_PGIP =
@@ -366,17 +366,17 @@
 
 (* Preferences: tweak for PGIP interfaces *)
 
-val preferences = ref Preferences.preferences;
+val preferences = ref Preferences.pure_preferences;
 
 fun add_preference cat pref =
-    preferences := Preferences.add cat pref (!preferences);
+  CRITICAL (fn () => change preferences (Preferences.add cat pref));
 
-fun setup_preferences_tweak() =
-    preferences :=
-     (!preferences |> Preferences.set_default ("show-question-marks","false")
-                   |> Preferences.remove "show-question-marks"    (* we use markup, not ?s *)
-                   |> Preferences.remove "theorem-dependencies"   (* set internally *)
-                   |> Preferences.remove "full-proofs")           (* set internally *)
+fun setup_preferences_tweak () =
+  CRITICAL (fn () => change preferences
+   (Preferences.set_default ("show-question-marks", "false") #>
+    Preferences.remove "show-question-marks" #>   (* we use markup, not ?s *)
+    Preferences.remove "theorem-dependencies" #>  (* set internally *)
+    Preferences.remove "full-proofs"));           (* set internally *)