emacs-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]