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

[Juanma Barranquero]

Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.242 emacs/src/eval.c:1.243
*** emacs/src/eval.c:1.242      Tue Jun 14 00:38:22 2005
--- emacs/src/eval.c    Thu Jun 23 16:07:51 2005
***************
*** 785,791 ****
    sym = Fcar (args);
    tail = Fcdr (args);
    if (!NILP (Fcdr (Fcdr (tail))))
!     error ("too many arguments");
  
    tem = Fdefault_boundp (sym);
    if (!NILP (tail))
--- 785,791 ----
    sym = Fcar (args);
    tail = Fcdr (args);
    if (!NILP (Fcdr (Fcdr (tail))))
!     error ("Too many arguments");
  
    tem = Fdefault_boundp (sym);
    if (!NILP (tail))
***************
*** 845,851 ****
  
    sym = Fcar (args);
    if (!NILP (Fcdr (Fcdr (Fcdr (args)))))
!     error ("too many arguments");
  
    tem = Feval (Fcar (Fcdr (args)));
    if (!NILP (Vpurify_flag))
--- 845,851 ----
  
    sym = Fcar (args);
    if (!NILP (Fcdr (Fcdr (Fcdr (args)))))
!     error ("Too many arguments");
  
    tem = Feval (Fcar (Fcdr (args)));
    if (!NILP (Vpurify_flag))
***************
*** 2037,2043 ****
        if (max_lisp_eval_depth < 100)
        max_lisp_eval_depth = 100;
        if (lisp_eval_depth > max_lisp_eval_depth)
!       error ("Lisp nesting exceeds max-lisp-eval-depth");
      }
  
    original_fun = Fcar (form);
--- 2037,2043 ----
        if (max_lisp_eval_depth < 100)
        max_lisp_eval_depth = 100;
        if (lisp_eval_depth > max_lisp_eval_depth)
!       error ("Lisp nesting exceeds `max-lisp-eval-depth'");
      }
  
    original_fun = Fcar (form);
***************
*** 2733,2739 ****
        if (max_lisp_eval_depth < 100)
        max_lisp_eval_depth = 100;
        if (lisp_eval_depth > max_lisp_eval_depth)
!       error ("Lisp nesting exceeds max-lisp-eval-depth");
      }
  
    backtrace.next = backtrace_list;
--- 2733,2739 ----
        if (max_lisp_eval_depth < 100)
        max_lisp_eval_depth = 100;
        if (lisp_eval_depth > max_lisp_eval_depth)
!       error ("Lisp nesting exceeds `max-lisp-eval-depth'");
      }
  
    backtrace.next = backtrace_list;


_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs