diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 2 | ||||
| -rw-r--r-- | src/treesit.c | 11 |
2 files changed, 12 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index ea0398196e3..c25ffb3c4fe 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2309,7 +2309,7 @@ build_load_history (Lisp_Object filename, bool entire) | |||
| 2309 | if (entire || !foundit) | 2309 | if (entire || !foundit) |
| 2310 | { | 2310 | { |
| 2311 | Lisp_Object tem = Fnreverse (Vcurrent_load_list); | 2311 | Lisp_Object tem = Fnreverse (Vcurrent_load_list); |
| 2312 | eassert (EQ (filename, Fcar (tem))); | 2312 | eassert (!NILP (Fequal (filename, Fcar (tem)))); |
| 2313 | Vload_history = Fcons (tem, Vload_history); | 2313 | Vload_history = Fcons (tem, Vload_history); |
| 2314 | /* FIXME: There should be an unbind_to right after calling us which | 2314 | /* FIXME: There should be an unbind_to right after calling us which |
| 2315 | should re-establish the previous value of Vcurrent_load_list. */ | 2315 | should re-establish the previous value of Vcurrent_load_list. */ |
diff --git a/src/treesit.c b/src/treesit.c index 6677158b9de..5e1e9b01059 100644 --- a/src/treesit.c +++ b/src/treesit.c | |||
| @@ -4516,4 +4516,15 @@ applies to LANGUAGE-A will be redirected to LANGUAGE-B instead. */); | |||
| 4516 | defsubr (&Streesit_subtree_stat); | 4516 | defsubr (&Streesit_subtree_stat); |
| 4517 | #endif /* HAVE_TREE_SITTER */ | 4517 | #endif /* HAVE_TREE_SITTER */ |
| 4518 | defsubr (&Streesit_available_p); | 4518 | defsubr (&Streesit_available_p); |
| 4519 | #ifdef WINDOWSNT | ||
| 4520 | DEFSYM (Qtree_sitter__library_abi, "tree-sitter--library-abi"); | ||
| 4521 | Fset (Qtree_sitter__library_abi, | ||
| 4522 | #if HAVE_TREE_SITTER | ||
| 4523 | make_fixnum (TREE_SITTER_LANGUAGE_VERSION) | ||
| 4524 | #else | ||
| 4525 | make_fixnum (-1) | ||
| 4526 | #endif | ||
| 4527 | ); | ||
| 4528 | #endif | ||
| 4529 | |||
| 4519 | } | 4530 | } |