diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-11 19:38:18 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-11 19:38:18 +0000 |
| commit | b1539a509127e2b9eda887664c2bdb9a54faa286 (patch) | |
| tree | 8fd302dc6d10d604169836f61387cb371b2dcb98 /lib | |
| parent | 55a45dcd9c88119e167277be3dc33e48dcc8910b (diff) | |
reparation Undo suite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4603 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/edit.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/edit.ml b/lib/edit.ml index a7a7520b8..e22c17ad5 100644 --- a/lib/edit.ml +++ b/lib/edit.ml @@ -80,8 +80,8 @@ let undo e n = | None -> invalid_arg "Edit.undo" | Some d -> let (bs,_) = Hashtbl.find e.buf d in - if Bstack.depth bs <= n then - errorlabstrm "Edit.undo" (str"Undo stack exhausted"); + if Bstack.depth bs = 1 & n > 0 then + errorlabstrm "Edit.undo" (str"Undo stack exhausted"); repeat n Bstack.pop bs let create e (d,b,c,udepth) = |