Fix calls to intern_c_string_1

* src/treesit.c (treesit_predicates_for_pattern):
(Ftreesit_query_capture): Call intern_c_string_1 with additionla arg.

diff --git a/src/treesit.c b/src/treesit.c
index 69272b8ad8801fe73f62b558de39b17f0b4be8ff..2b5b2cc044aab8ffc8f7aaa9eff850d9952e92c1 100644 (file)
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -2182,7 +2182,7 @@ treesit_predicates_for_pattern (TSQuery *query, uint32_t pattern_index)
            const char *str = ts_query_capture_name_for_id (query,
                                                            step.value_id,
                                                            &str_len);
-           predicate = Fcons (intern_c_string_1 (str, str_len),
+           predicate = Fcons (intern_c_string_1 (str, str_len, true),
                               predicate);
            break;
          }
@@ -2537,7 +2537,7 @@ the query.  */)
              const char *capture_name
                = ts_query_capture_name_for_id (treesit_query, capture.index,
                                                &capture_name_len);
-             cap = Fcons (intern_c_string_1 (capture_name, capture_name_len),
+             cap = Fcons (intern_c_string_1 (capture_name, capture_name_len, true),
                           captured_node);
            }
          else