From 743bac5fd408f2174def78cfa787e79774deea2d Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 29 May 2012 11:09:38 +0000
Subject: Re-allow Time Back* (cf discussion on coq-club)

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

diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml
index 3f3453b818..8aaa82a3b2 100644
--- a/toplevel/vernac.ml
+++ b/toplevel/vernac.ml
@@ -35,10 +35,11 @@ let rec is_navigation_vernac = function
   | VernacBacktrack _
   | VernacBackTo _
   | VernacBack _ -> true
+  | VernacTime c -> is_navigation_vernac c (* Time Back* is harmless *)
   | c -> is_deep_navigation_vernac c
 
 and is_deep_navigation_vernac = function
-  | VernacTime c | VernacTimeout (_,c) | VernacFail c -> is_navigation_vernac c
+  | VernacTimeout (_,c) | VernacFail c -> is_navigation_vernac c
   | VernacList l -> List.exists (fun (_,c) -> is_navigation_vernac c) l
   | _ -> false
 
-- 
cgit v1.2.3