Inhibit GC in probably_quit (bug#58042)

diff --git a/src/eval.c b/src/eval.c
index 7da1d8fb98998da451ae3128055375667ae2ae64..8810136c0419e05460865c07945874a2498c7eac 100644 (file)
--- 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,