From 5536b6d56226c4e53bbd6c5ae9a2c419c6f08874 Mon Sep 17 00:00:00 2001
From: pboutill
Date: Sun, 18 Dec 2011 22:50:10 +0000
Subject: 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
---
 lib/envars.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/envars.ml b/lib/envars.ml
index dc71cb4330..e5c938037b 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
-- 
cgit v1.2.3