Mercurial > hg > xemacs-beta
changeset 1322:0e48d8b45bdb
[xemacs-hg @ 2003-02-23 10:58:01 by ben]
another boo-boo
eval.c: damn those off-by-one errors.
| author | ben |
|---|---|
| date | Sun, 23 Feb 2003 10:58:05 +0000 |
| parents | 4f69b7a5bf9f |
| children | fd5f4304525b |
| files | src/ChangeLog src/eval.c |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Sat Feb 22 22:53:06 2003 +0000 +++ b/src/ChangeLog Sun Feb 23 10:58:05 2003 +0000 @@ -1,3 +1,8 @@ +2003-02-23 Ben Wing <ben@xemacs.org> + + * eval.c (unbind_to_hairy): + damn those off-by-one errors. + 2003-02-21 Ben Wing <ben@xemacs.org> * redisplay.c:
--- a/src/eval.c Sat Feb 22 22:53:06 2003 +0000 +++ b/src/eval.c Sun Feb 23 10:58:05 2003 +0000 @@ -5962,7 +5962,7 @@ /* Do this check BEFORE decrementing the values below, because once they're decremented, GC protection is lost on specpdl_ptr->old_value. */ - if (specpdl_ptr->func == Fprogn) + if (specpdl_ptr[-1].func == Fprogn) { /* Allow QUIT within unwind-protect routines, but defer any existing QUIT until afterwards. Only do this, however, for