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

1 files changed, 3 insertions, 0 deletions

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;