Make sure the treesit path variables are lists

* src/treesit.c: (treesit_load_language)
(treesit_find_override_name): Make sure the lists we use are
really lists.
This commit is contained in:
Eli Zaretskii 2022-10-17 20:39:23 +03:00
parent 02f78c09b0
commit 5a2c1a743b

View file

@ -445,6 +445,7 @@ static bool
treesit_find_override_name (Lisp_Object language_symbol, Lisp_Object *name,
Lisp_Object *c_symbol)
{
CHECK_LIST (Vtreesit_load_name_override_list);
for (Lisp_Object list = Vtreesit_load_name_override_list;
!NILP (list); list = XCDR (list))
{
@ -489,6 +490,8 @@ treesit_load_language (Lisp_Object language_symbol,
{
Lisp_Object symbol_name = Fsymbol_name (language_symbol);
CHECK_LIST (Vtreesit_extra_load_path);
/* Figure out the library name and C name. */
Lisp_Object lib_base_name =
concat2 (build_pure_c_string ("libtree-sitter-"), symbol_name);