From 3cf7a09799982924453df29b3bb4d081a0e089b4 Mon Sep 17 00:00:00 2001
From: Guillaume Melquiond <guillaume.melquiond@inria.fr>
Date: Sun, 26 Apr 2015 21:51:49 +0200
Subject: Open the file chooser even if there is no current session. (Fix bug
 #4206)

---
 ide/coqide.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'ide/coqide.ml')

diff --git a/ide/coqide.ml b/ide/coqide.ml
index 0f4cb7b07..c0e228125 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -253,14 +253,14 @@ let newfile _ =
   !refresh_editor_hook ();
   notebook#goto_page index
 
-let load sn =
-  let filename = sn.fileops#filename in
+let load _ =
+  let filename =
+    try notebook#current_term.fileops#filename
+    with Invalid_argument _ -> None in
   match select_file_for_open ~title:"Load file" ?filename () with
     | None -> ()
     | Some f -> FileAux.load_file f
 
-let load = cb_on_current_term load
-
 let save _ = on_current_term (FileAux.check_save ~saveas:false)
 
 let saveas sn =
-- 
cgit v1.2.3