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

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  <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,Ad(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 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