* src/eval.c (signal_quit_p): Fix the usual int/Lisp_Object mixup

This commit is contained in:
Stefan Monnier 2021-07-21 11:12:25 -04:00
parent 52187012f1
commit 0576b81ca7

View file

@ -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.