Commit 0576b81c authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 52187012
Pipeline #11520 failed with stages
in 1 minute and 13 seconds
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment