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) ...@@ -2033,9 +2033,9 @@ signal_quit_p (Lisp_Object signal)
Lisp_Object list; Lisp_Object list;
return EQ (signal, Qquit) return EQ (signal, Qquit)
|| (Fsymbolp (signal) || (!NILP (Fsymbolp (signal))
&& CONSP (list = Fget (signal, Qerror_conditions)) && CONSP (list = Fget (signal, Qerror_conditions))
&& Fmemq (Qquit, list)); && !NILP (Fmemq (Qquit, list)));
} }
/* Call the debugger if calling it is currently enabled for CONDITIONS. /* 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