From a112e3f017dd9704f44b4913a2c37ad32d3e73bd Mon Sep 17 00:00:00 2001
From: Gerd Möllmann <gerd@gnu.org>
Date: Thu, 6 Oct 2022 09:09:04 +0200
Subject: Inhibit GC in probably_quit (bug#58042)

---
 src/eval.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/eval.c')

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,
-- 
cgit v1.2.3-70-g09d2