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/coqide.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'ide/coqide.ml')

diff --git a/ide/coqide.ml b/ide/coqide.ml
index ae7dfbec57..26bb80b05f 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -1236,6 +1236,9 @@ Please restart and report NOW.";
 		   raise e
 		 end);
 	      update_input ()
+	  | { ast = (_, a) } when is_state_preserving a ->
+	      ignore (pop ());
+	      update_input ()
 	  | _ -> 
 	      self#backtrack_to_no_lock start
 	  end;
-- 
cgit v1.2.3