diff options
| author | herbelin | 2004-02-03 17:31:30 +0000 |
|---|---|---|
| committer | herbelin | 2004-02-03 17:31:30 +0000 |
| commit | b9084e97bc18bf65195779c44f496901bb83e009 (patch) | |
| tree | d18e2033e01667b67c216da6d906ad805d075b0b | |
| parent | aa4987c27cca777857b58749fcc96bfc9aada62a (diff) | |
Bug focus
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5282 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 *) |