; Minor optimization in treesit range function

* src/treesit.c (Ftreesit_parser_set_included_ranges): Lift
assignment out of the loop.

1 files changed, 1 insertions, 2 deletions

diff --git a/src/treesit.c b/src/treesit.c
index 88d5ea91223..585683aa1ba 100644
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -786,12 +786,11 @@ is nil, set PARSER to parse the whole buffer.  */)
       /* Set ranges for PARSER.  */
       ptrdiff_t len = list_length (ranges);
       TSRange *ts_ranges = malloc (sizeof(TSRange) * len);
+      struct buffer *buffer = XBUFFER (XTS_PARSER (parser)->buffer);
 
       for (int idx=0; !NILP (ranges); idx++, ranges = XCDR (ranges))
         {
           Lisp_Object range = XCAR (ranges);
-          struct buffer *buffer = XBUFFER (XTS_PARSER (parser)->buffer);
-
           EMACS_INT beg_byte = buf_charpos_to_bytepos
             (buffer, XFIXNUM (XCAR (range)));
           EMACS_INT end_byte = buf_charpos_to_bytepos