[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0576b81: * src/eval.c (signal_quit_p): Fix the usual int/Lisp_Obj
From: |
Stefan Monnier |
Subject: |
master 0576b81: * src/eval.c (signal_quit_p): Fix the usual int/Lisp_Object mixup |
Date: |
Wed, 21 Jul 2021 11:12:30 -0400 (EDT) |
branch: master
commit 0576b81ca79c9cb0c156de66c924b1610e26dcff
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* 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 ddf7e70..48104bd 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0576b81: * src/eval.c (signal_quit_p): Fix the usual int/Lisp_Object mixup,
Stefan Monnier <=