; * src/treesit.c (treesit_predicate_match): Move use below check.

diff --git a/src/treesit.c b/src/treesit.c
index 4e07d4d0847592983e791da7cbaf3739c00ab957..7834eb1a682eca062f6fe8fd5b99f2d891bfbd9a 100644 (file)
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -2229,8 +2229,6 @@ treesit_predicate_match (Lisp_Object args, struct capture_range captures)
 
   Lisp_Object regexp = XCAR (args);
   Lisp_Object capture_name = XCAR (XCDR (args));
-  Lisp_Object text = treesit_predicate_capture_name_to_text (capture_name,
-                                                            captures);
 
   /* It's probably common to get the argument order backwards.  Catch
      this mistake early and show helpful explanation, because Emacs
@@ -2245,6 +2243,9 @@ treesit_predicate_match (Lisp_Object args, struct capture_range captures)
              build_pure_c_string ("The second argument to `match' should "
                                   "be a capture name, not a string"));
 
+  Lisp_Object text = treesit_predicate_capture_name_to_text (capture_name,
+                                                            captures);
+
   if (fast_string_match (regexp, text) >= 0)
     return true;
   else