From: Gerd Möllmann <gerd@gnu.org>
Date: Thu, 6 Oct 2022 07:09:04 +0000 (+0200)
Subject: Inhibit GC in probably_quit (bug#58042)
X-Git-Tag: emacs-29.0.90~1855^2~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a112e3f017dd9704f44b4913a2c37ad32d3e73bd;p=emacs.git

Inhibit GC in probably_quit (bug#58042)
---

diff --git a/src/eval.c b/src/eval.c
index 7da1d8fb989..8810136c041 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1651,10 +1651,12 @@ process_quit_flag (void)
 void
 probably_quit (void)
 {
+  specpdl_ref gc_count = inhibit_garbage_collection ();
   if (!NILP (Vquit_flag) && NILP (Vinhibit_quit))
     process_quit_flag ();
   else if (pending_signals)
     process_pending_signals ();
+  unbind_to (gc_count, Qnil);
 }
 
 DEFUN ("signal", Fsignal, Ssignal, 2, 2, 0,