diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-08-23 01:57:29 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-08-23 02:20:17 +0200 |
commit | 86dbe3337197741d0ceaea740cbbd3e8b9b1dfe1 (patch) | |
tree | 75043861f558b01e59bcb44cd523f30dfa763402 /ide/coqide.ml | |
parent | 325890a83a2b073d9654b5615c585cd65a376fbd (diff) |
Fix BZ#5687: Coqtop died badly modal message box from CoqIDE.
We let the user choose the most appropriate action to do if coqtop decides
to go berserk.
Diffstat (limited to 'ide/coqide.ml')
-rw-r--r-- | ide/coqide.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index feb45a7be..7b65c9fec 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -284,6 +284,8 @@ let saveall _ = | Some f -> ignore (sn.fileops#save f)) notebook#pages +let () = Coq.save_all := saveall + let revert_all _ = List.iter (fun sn -> if sn.fileops#changed_on_disk then sn.fileops#revert) |