From b9084e97bc18bf65195779c44f496901bb83e009 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 3 Feb 2004 17:31:30 +0000
Subject: Bug focus

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

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index 307e1026b6..6c82aaad0d 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -981,7 +981,7 @@ let vernac_undo n =
 
   (* Est-ce normal que "Focus" ne semble pas se comporter comme "Focus 1" ? *)
 let vernac_focus = function
-  | None -> make_focus 1; print_subgoals ()
+  | None -> traverse_nth_goal 1; print_subgoals ()
   | Some n -> traverse_nth_goal n; print_subgoals ()
 
   (* Reset the focus to the top of the tree *)
-- 
cgit v1.2.3