diff options
| -rw-r--r-- | ide/coqide.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index d6ebdc307c..915cd0603b 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -290,7 +290,8 @@ let remove_current_view_page () = session_notebook#remove_page c in let current = session_notebook#current_term in - if current.script#buffer#modified then + if not current.script#buffer#modified then do_remove () + else match GToolbox.question_box ~title:"Close" ~buttons:["Save Buffer and Close"; "Close without Saving"; |