From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 21 Jul 2021 15:12:25 +0000 (-0400)
Subject: * src/eval.c (signal_quit_p): Fix the usual int/Lisp_Object mixup
X-Git-Tag: emacs-28.0.90~1763
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0576b81ca79c9cb0c156de66c924b1610e26dcff;p=emacs.git

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

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.