From a50ea4f8a88a438f38b41e744d00a5ee87b95793 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 13 Jun 2003 08:39:23 +0000
Subject: 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
---
 ide/coq.ml | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'ide/coq.ml')

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
-- 
cgit v1.2.3