From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 13 Aug 2019 19:28:53 +0000 (-0700)
Subject: Don’t increase consing_until_gc when out of memory
X-Git-Tag: emacs-27.0.90~1632
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4974d6fe6137f436763998be27afafea9866098;p=emacs.git

Don’t increase consing_until_gc when out of memory

* src/alloc.c (memory_full): Don’t increase consing_until_gc.
Suggested by Eli Zaretskii (Bug#37006#46).
---

diff --git a/src/alloc.c b/src/alloc.c
index 14b0a7b8381..0548a09cb8b 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3866,7 +3866,7 @@ memory_full (size_t nbytes)
   if (! enough_free_memory)
     {
       Vmemory_full = Qt;
-      consing_until_gc = memory_full_cons_threshold;
+      consing_until_gc = min (consing_until_gc, memory_full_cons_threshold);
 
       /* The first time we get here, free the spare memory.  */
       for (int i = 0; i < ARRAYELTS (spare_memory); i++)