Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.253 emacs/src/eval.c:1.254
*** emacs/src/eval.c:1.253      Thu Jul 21 15:03:38 2005
--- emacs/src/eval.c    Sat Jul 23 19:09:09 2005
***************
*** 2094,2100 ****
      return form;
  
    QUIT;
!   if (consing_since_gc > gc_cons_combined_threshold)
      {
        GCPRO1 (form);
        Fgarbage_collect ();
--- 2094,2101 ----
      return form;
  
    QUIT;
!   if (consing_since_gc > gc_cons_threshold
!       && consing_since_gc > gc_relative_threshold)
      {
        GCPRO1 (form);
        Fgarbage_collect ();
***************
*** 2794,2800 ****
    register int i;
  
    QUIT;
!   if (consing_since_gc > gc_cons_combined_threshold)
      Fgarbage_collect ();
  
    if (++lisp_eval_depth > max_lisp_eval_depth)
--- 2795,2802 ----
    register int i;
  
    QUIT;
!   if (consing_since_gc > gc_cons_threshold
!       && consing_since_gc > gc_relative_threshold)
      Fgarbage_collect ();
  
    if (++lisp_eval_depth > max_lisp_eval_depth)


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

Reply via email to