From 56b363ca4f1c824ba89028e474c6918baadff18e Mon Sep 17 00:00:00 2001
From: barras
Date: Fri, 25 Nov 2005 17:14:39 +0000
Subject: *** empty log message ***

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7609 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/coqide.ml   | 2 +-
 ide/ideutils.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/coqide.ml b/ide/coqide.ml
index 3b9349d8b4..7fd35a7f66 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -3345,7 +3345,7 @@ let rec check_for_drgeocaml_input () =
 let start () = 
   let files = Coq.init () in
   ignore_break ();
-  GtkMain.Rc.add_default_file (Filename.concat lib_ide ".coqide-gtk2rc");
+  GtkMain.Rc.add_default_file (lib_ide_file ".coqide-gtk2rc");
   (try 
      GtkMain.Rc.add_default_file (Filename.concat System.home ".coqide-gtk2rc");
   with Not_found -> ());
diff --git a/ide/ideutils.ml b/ide/ideutils.ml
index 5d7ff31351..e0018528d4 100644
--- a/ide/ideutils.ml
+++ b/ide/ideutils.ml
@@ -273,7 +273,7 @@ let browse f url =
 let url_for_keyword =
   let ht = Hashtbl.create 97 in
   begin try
-    let cin = open_in (Filename.concat lib_ide "index_urls.txt") in
+    let cin = open_in (lib_ide_file "index_urls.txt") in
     try while true do
       let s = input_line cin in
       try 
-- 
cgit v1.2.3