diff options
| author |  monate <monate@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-07-16 13:38:49 +0000 |
|---|---|---|
| committer | monate <monate@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-07-16 13:38:49 +0000 |
| commit | 2996e36ef6f6f4288f8af4eb39b0da69f270a68a (patch) | |
| tree | 503b0e0b45166f79cd881712ad069c6545c14978 /ide/coqide.ml | |
| parent | 10cf0e574c6d681dec64011636c87fc85dfb7478 (diff) | |
coqide: fixed problems with -R -I and coqide interaction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4237 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqide.ml')
| -rw-r--r-- | ide/coqide.ml | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 7007d0509..c3f2e48ef 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1409,13 +1409,16 @@ Please restart and report NOW."; (out_some ((Vector.get input_views index).analyzed_view)) #filename with - | None -> initial_cwd - | Some f -> Filename.dirname f - ) - in - if not (is_in_coq_lib dir) then - ignore (Coq.interp (Printf.sprintf "Add LoadPath \"%s\". " dir)); - Sys.chdir dir + | None -> () + | Some f -> + if not (is_in_coq_path f) then + begin + let dir = Filename.dirname f in + ignore (Coq.interp + (Printf.sprintf "Add LoadPath \"%s\". " dir)) + end) + in () + method electric_handler = |