feature/pkg 7ac023aa1f 2/2: Fix calls to intern_c_string_1

[Gerd Moellmann]

branch: feature/pkg
commit 7ac023aa1f23598edf5025d121516f4e1a34700b
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    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.
---
 src/treesit.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/treesit.c b/src/treesit.c
index 69272b8ad8..2b5b2cc044 100644
--- 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