(unbind_to): Don't handle symbol = Qnil any more.

diff --git a/src/ChangeLog b/src/ChangeLog
index 3e60c7ec3f8ad1e55e864fd42bda351486dbf31a..fc75e3631e1cf20723884de15cb8718681d30a35 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,16 @@
+2003-04-30  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * 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) <unwind-protect>:
+       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  <rms@gnu.org>
 
        * 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\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * 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  <monnier@cs.yale.edu>
+
+       * eval.c (Fapply): Undo last change and add a comment about why.
+
 2003-04-18  Miles Bader  <miles@gnu.org>
 
        * data.c (Faset): Calculate nbytes earlier, to satisfy the now

diff --git a/src/eval.c b/src/eval.c
index 88fced11834043728931483c43fa48ca32853d68..2b71fe243cb06ec122e25f53acf834a2fcef3930 100644 (file)
--- 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