From fa567684fa276511ea981cd208f99b67c521d8aa Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 22 Nov 2022 18:56:08 +0200 Subject: [PATCH] ; Fix comparisons in treesit.c * src/treesit.c (Ftreesit_parser_add_notifier) (Ftreesit_parser_remove_notifier): Fix comparison with Lisp objects. (Bug#59483) --- src/treesit.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/treesit.c b/src/treesit.c index 463e2458a63..835b07c9312 100644 --- a/src/treesit.c +++ b/src/treesit.c @@ -1535,7 +1535,7 @@ positions. PARSER is the parser issuing the notification. */) CHECK_SYMBOL (function); Lisp_Object functions = XTS_PARSER (parser)->after_change_functions; - if (!Fmemq (function, functions)) + if (NILP (Fmemq (function, functions))) XTS_PARSER (parser)->after_change_functions = Fcons (function, functions); return Qnil; } @@ -1555,7 +1555,7 @@ positions. PARSER is the parser issuing the notification. */) CHECK_SYMBOL (function); Lisp_Object functions = XTS_PARSER (parser)->after_change_functions; - if (Fmemq (function, functions)) + if (!NILP (Fmemq (function, functions))) XTS_PARSER (parser)->after_change_functions = Fdelq (function, functions); return Qnil; } -- 2.39.5