diff options
author | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-04 16:53:42 +0000 |
---|---|---|
committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-04 16:53:42 +0000 |
commit | 324f9d73cb3ce3da4248ca720ebd80ab77f7de84 (patch) | |
tree | 95e395d03238e467c0e5c419f049c04e6943a20f /ide/coqide.ml | |
parent | 13c0f9cd85418640cdd5c77b50f9b1acf21186c5 (diff) |
bug fix find coqide
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5290 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqide.ml')
-rw-r--r-- | ide/coqide.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 39dcd0ffa..9bed06666 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -2211,6 +2211,9 @@ let main files = find_w#misc#hide(); v#coerce#misc#grab_focus() in + to_do_on_page_switch := + (fun i -> if find_w#misc#visible then close_find()):: + !to_do_on_page_switch; let find_again_forward () = search_backward := false; let (v,b,start,_) = last_find () in |