diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-25 23:29:52 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-26 00:34:21 +0200 |
commit | 20ae742e391a8db65e203213a124126ce8621fe1 (patch) | |
tree | 4b0e7ff8640323fc5c83bfec8f13d4e9ac45f710 /ide/fileOps.ml | |
parent | bfbb9f063434623d7c3dac8aa4aaf64c4ec84373 (diff) |
Replacing old-style preferences in CoqIDE.
There is no remaining global preference record anymore, every preference
is now defined in the new event-based style.
Diffstat (limited to 'ide/fileOps.ml')
-rw-r--r-- | ide/fileOps.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/ide/fileOps.ml b/ide/fileOps.ml index b8e1861ef..eccd61d0d 100644 --- a/ide/fileOps.ml +++ b/ide/fileOps.ml @@ -8,8 +8,6 @@ open Ideutils -let prefs = Preferences.current - let revert_timer = mktimer () let autosave_timer = mktimer () @@ -120,9 +118,9 @@ object(self) | None -> None | Some f -> let dir = Filename.dirname f in - let base = (fst prefs.Preferences.auto_save_name) ^ + let base = (fst Preferences.auto_save_name#get) ^ (Filename.basename f) ^ - (snd prefs.Preferences.auto_save_name) + (snd Preferences.auto_save_name#get) in Some (Filename.concat dir base) method private need_auto_save = |