Future-proof loading tree-sitter library on MS-Windows

* src/treesit.c (syms_of_treesit) <tree-sitter--library-abi>: New
internal variable.

* lisp/term/w32-win.el (dynamic-library-alist): Use
'tree-sitter--library-abi' to select a proper libtree-sitter DLL
version.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/treesit.c b/src/treesit.c
index 679b8fc7ddd..4031d80f7c9 100644
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -4371,4 +4371,15 @@ the symbol of that THING.  For example, (or sexp sentence).  */);
   defsubr (&Streesit_subtree_stat);
 #endif /* HAVE_TREE_SITTER */
   defsubr (&Streesit_available_p);
+#ifdef WINDOWSNT
+  DEFSYM (Qtree_sitter__library_abi, "tree-sitter--library-abi");
+  Fset (Qtree_sitter__library_abi,
+#if HAVE_TREE_SITTER
+        make_fixnum (TREE_SITTER_LANGUAGE_VERSION)
+#else
+        make_fixnum (-1)
+#endif
+        );
+#endif
+
 }