From 32c06229108e02639c2f8edaa15d0547aec0d98a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 1 May 2003 00:43:29 +0000 Subject: [PATCH] (unbind_to): Don't handle symbol = Qnil any more. --- src/ChangeLog | 21 +++++++++++++++++++-- src/eval.c | 4 ---- 2 files changed, 19 insertions(+), 6 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 3e60c7ec3f8..fc75e3631e1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,16 @@ +2003-04-30 Stefan Monnier + + * eval.c (unbind_to): Don't handle symbol = Qnil any more. + + * lisp.h (CHECK): Wrap args in parenthesis. + (specbind): Fix doc: symbol = Qnil is not supported any more. + + * bytecode.c (Fbyte_code) : + Use Fprogn rather than 0 and Qnil. + + * keyboard.c (parse_modifiers_uncached): Parse `down', `drag', + `double', and `triple' modifiers as well. + 2003-04-30 Richard M. Stallman * keyboard.c (echo_char): Don't clear out a dash that follows a space. @@ -10,7 +23,7 @@ * eval.c (Fsignal): Clear abort_on_gc. * editfns.c (Fformat): Set abort_on_gc during first scan of format. - Reinit FORMAT_START and END before second scan. + Reinit FORMAT_START and END before second scan. * xdisp.c (move_it_vertically_backward): Do the final big else even if nlines is 0. @@ -35,9 +48,13 @@ 2003-04-23 Jan Dj,Ad(Brv * xdisp.c (update_tool_bar): BLOCK_INPUT before calling - tool_bar_items so GTK tool bar expose callback does not access items + tool_bar_items so GTK tool bar expose callback does not access items being updated. +2003-04-19 Stefan Monnier + + * eval.c (Fapply): Undo last change and add a comment about why. + 2003-04-18 Miles Bader * data.c (Faset): Calculate nbytes earlier, to satisfy the now diff --git a/src/eval.c b/src/eval.c index 88fced11834..2b71fe243cb 100644 --- a/src/eval.c +++ b/src/eval.c @@ -3074,10 +3074,6 @@ unbind_to (count, value) if (specpdl_ptr->func != 0) (*specpdl_ptr->func) (specpdl_ptr->old_value); - /* Note that a "binding" of nil is really an unwind protect, - so in that case the "old value" is a list of forms to evaluate. */ - else if (NILP (specpdl_ptr->symbol)) - Fprogn (specpdl_ptr->old_value); /* If the symbol is a list, it is really (SYMBOL WHERE . CURRENT-BUFFER) where WHERE is either nil, a buffer, or a frame. If WHERE is a buffer or frame, this indicates we -- 2.39.2