[Emacs-diffs] Changes to emacs/src/eval.c

[Richard M . Stallman]

Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.233 emacs/src/eval.c:1.234
*** emacs/src/eval.c:1.233      Sun Feb  6 11:23:38 2005
--- emacs/src/eval.c    Sun Mar  6 16:02:47 2005
***************
*** 1176,1182 ****
  
    /* Restore certain special C variables.  */
    set_poll_suppress_count (catch->poll_suppress_count);
!   interrupt_input_blocked = catch->interrupt_input_blocked;
    handling_signal = 0;
    immediate_quit = 0;
  
--- 1176,1182 ----
  
    /* Restore certain special C variables.  */
    set_poll_suppress_count (catch->poll_suppress_count);
!   UNBLOCK_INPUT_TO (catch->interrupt_input_blocked);
    handling_signal = 0;
    immediate_quit = 0;
  
***************
*** 2067,2072 ****
--- 2067,2074 ----
        args_left = original_args;
        numargs = Flength (args_left);
  
+       CHECK_CONS_LIST ();
+ 
        if (XINT (numargs) < XSUBR (fun)->min_args ||
          (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < XINT 
(numargs)))
        return Fsignal (Qwrong_number_of_arguments, Fcons (fun, Fcons (numargs, 
Qnil)));
***************
*** 2190,2195 ****
--- 2192,2199 ----
        return Fsignal (Qinvalid_function, Fcons (fun, Qnil));
      }
   done:
+   CHECK_CONS_LIST ();
+ 
    lisp_eval_depth--;
    if (backtrace.debug_on_exit)
      val = call_debugger (Fcons (Qexit, Fcons (val, Qnil)));
***************
*** 2746,2751 ****
--- 2750,2757 ----
  
    if (SUBRP (fun))
      {
+       CHECK_CONS_LIST ();
+ 
        if (numargs < XSUBR (fun)->min_args
          || (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < numargs))
        {
***************
*** 2844,2849 ****
--- 2850,2856 ----
        return Fsignal (Qinvalid_function, Fcons (fun, Qnil));
      }
   done:
+   CHECK_CONS_LIST ();
    lisp_eval_depth--;
    if (backtrace.debug_on_exit)
      val = call_debugger (Fcons (Qexit, Fcons (val, Qnil)));