diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-12-18 22:50:10 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-12-18 22:50:10 +0000 |
commit | 5536b6d56226c4e53bbd6c5ae9a2c419c6f08874 (patch) | |
tree | cca6de8f1309481bafea295d9647c2a62795b9d3 /lib/envars.ml | |
parent | a428f79ca9ddacb4650c4a6bda7aa231e11d92ae (diff) |
CoqIde files position is freedesktop compliant.
Beware, it means that files position is not relative to coqtop position
but is given by XDG_DATA_DIRS and XDG_CONFIG_DIRS.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14822 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/envars.ml')
-rw-r--r-- | lib/envars.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/envars.ml b/lib/envars.ml index dc71cb433..e5c938037 100644 --- a/lib/envars.ml +++ b/lib/envars.ml @@ -64,7 +64,8 @@ let xdg_config_home = let xdg_data_dirs = try List.map (fun dir -> Filename.concat dir "coq") (path_to_list (Sys.getenv "XDG_DATA_DIRS")) - with Not_found -> [ "/usr/local/share/coq"; "/usr/share/coq" ] + with Not_found -> "/usr/local/share/coq" :: "/usr/share/coq" + :: (match Coq_config.datadir with |None -> [] |Some datadir -> [datadir]) let xdg_dirs = let dirs = xdg_data_home :: xdg_data_dirs |