diff options
| author | filliatr | 2003-06-13 08:39:23 +0000 |
|---|---|---|
| committer | filliatr | 2003-06-13 08:39:23 +0000 |
| commit | a50ea4f8a88a438f38b41e744d00a5ee87b95793 (patch) | |
| tree | b23da37ec6f0f65ca4a188ef22fd1e79a184a53c /ide/coq.ml | |
| parent | d31656251b2abae615e2827b8cb7c7f819732f75 (diff) | |
CoqIDE: undo immediat sur les commandes ne modifiant pas l'etat
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4145 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coq.ml')
| -rw-r--r-- | ide/coq.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ide/coq.ml b/ide/coq.ml index e960170354..7b62ef1660 100644 --- a/ide/coq.ml +++ b/ide/coq.ml @@ -392,3 +392,12 @@ let make_cases s = tarr [] | _ -> raise Not_found + +let is_state_preserving = function + | VernacPrint _ | VernacPrintOption _ | VernacGlobalCheck _ + | VernacCheckMayEval _ | VernacSearch _ | VernacLocate _ + | VernacShow _ | VernacMemOption _ | VernacComments _ + | VernacChdir None | VernacNop -> + prerr_endline "state preserving command found"; true + | _ -> + false |