diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-21 16:58:35 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-21 16:58:35 +0000 |
commit | 5e62a6a476c925e58e169e43468ed0cee422bb1a (patch) | |
tree | c1df85d0afa81d1f06d0a142cf4210ccc928d65b /ide/preferences.ml | |
parent | 885bddb65bd236d2e1e9e8c5a44cec688036213b (diff) |
coqide default pref files are by default in /etc/xdg/coq/
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14715 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/preferences.ml')
-rw-r--r-- | ide/preferences.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ide/preferences.ml b/ide/preferences.ml index 14608f984..103c24848 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -1,4 +1,3 @@ - (************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) (* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2010 *) @@ -224,8 +223,10 @@ let save_pref () = Config_lexer.print_file pref_file let load_pref () = - GtkData.AccelMap.load (Filename.concat !Minilib.coqlib "ide/default_accel_map"); - GtkData.AccelMap.load accel_file; + let accel_dir = List.find + (fun x -> Sys.file_exists (Filename.concat x "coqide.keys")) + Minilib.xdg_config_dirs in + GtkData.AccelMap.load (Filename.concat accel_dir "coqide.keys"); let p = !current in let m = Config_lexer.load_file pref_file in |