From 0576b81ca79c9cb0c156de66c924b1610e26dcff Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 21 Jul 2021 11:12:25 -0400 Subject: [PATCH] * src/eval.c (signal_quit_p): Fix the usual int/Lisp_Object mixup --- src/eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/eval.c b/src/eval.c index ddf7e703fc2..48104bd0f45 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2033,9 +2033,9 @@ signal_quit_p (Lisp_Object signal) Lisp_Object list; return EQ (signal, Qquit) - || (Fsymbolp (signal) + || (!NILP (Fsymbolp (signal)) && CONSP (list = Fget (signal, Qerror_conditions)) - && Fmemq (Qquit, list)); + && !NILP (Fmemq (Qquit, list))); } /* Call the debugger if calling it is currently enabled for CONDITIONS. -- 2.39.2