; Fix comparisons in treesit.c

* src/treesit.c (Ftreesit_parser_add_notifier)
(Ftreesit_parser_remove_notifier): Fix comparison with Lisp
objects.  (Bug#59483)

diff --git a/src/treesit.c b/src/treesit.c
index 463e2458a632fb9f378f40006f5de99c687a7bc9..835b07c9312d972a95583f7e35a48289f68eda8b 100644 (file)
--- 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;
 }