From 8ef45dfc3f153b123d2a35156dbc0d570f325160 Mon Sep 17 00:00:00 2001
From: gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 1 Oct 2013 15:35:34 +0000
Subject: CoqIDE: fixed advance_until wrt unfocusing

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16834 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/coqOps.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'ide')

diff --git a/ide/coqOps.ml b/ide/coqOps.ml
index b30f7cbd9..5769415ad 100644
--- a/ide/coqOps.ml
+++ b/ide/coqOps.ml
@@ -518,7 +518,8 @@ object(self)
               self#exit_focus tip;
               push_msg Notice msg;
               self#mark_as_needed sentence;
-              loop tip (List.rev topstack)
+              if Queue.is_empty queue then loop tip []
+              else loop tip (List.rev topstack)
           | Fail (id, loc, msg) ->
               let sentence = Stack.pop cmd_stack in
               self#process_interp_error queue sentence loc msg id
-- 
cgit v1.2.3