From: Gerd Möllmann <gerd@gnu.org>
Date: Mon, 28 Nov 2022 08:29:43 +0000 (+0100)
Subject: Fix calls to intern_c_string_1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ac023aa1f23598edf5025d121516f4e1a34700b;p=emacs.git

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 69272b8ad88..2b5b2cc044a 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