procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Minor cleanup in treesit.c

Browse source 
* src/treesit.c (Ftreesit_query_capture)
(Ftreesit_parser_set_included_ranges): Minor cleanups.
This commit is contained in:
Eli Zaretskii 2022-12-06 19:28:02 +02:00
parent 40af27859e
commit b3847c0208
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/treesit.c
View file

@ -1501,9 +1501,9 @@ buffer. */)
for (int idx = 0; !NILP (ranges); idx++, ranges = XCDR (ranges)) for (int idx = 0; !NILP (ranges); idx++, ranges = XCDR (ranges))
{ {
Lisp_Object range = XCAR (ranges); Lisp_Object range = XCAR (ranges);
EMACS_INT beg_byte = buf_charpos_to_bytepos (buffer, ptrdiff_t beg_byte = buf_charpos_to_bytepos (buffer,
XFIXNUM (XCAR (range))); XFIXNUM (XCAR (range)));
EMACS_INT end_byte = buf_charpos_to_bytepos (buffer, ptrdiff_t end_byte = buf_charpos_to_bytepos (buffer,
XFIXNUM (XCDR (range))); XFIXNUM (XCDR (range)));
/* Shouldn't violate assertion since we just checked for /* Shouldn't violate assertion since we just checked for
buffer size at the beginning of this function. */ buffer size at the beginning of this function. */
@ -2507,10 +2507,8 @@ the query. */)
/* Set query range. */ /* Set query range. */
if (!NILP (beg) && !NILP (end)) if (!NILP (beg) && !NILP (end))
{ {
EMACS_INT beg_byte = buf_charpos_to_bytepos (current_buffer, ptrdiff_t beg_byte = CHAR_TO_BYTE (XFIXNUM (beg));
XFIXNUM (beg)); ptrdiff_t end_byte = CHAR_TO_BYTE (XFIXNUM (end));
EMACS_INT end_byte = buf_charpos_to_bytepos (current_buffer,
XFIXNUM (end));
/* We never let tree-sitter run on buffers too large, so these /* We never let tree-sitter run on buffers too large, so these
assertion should never hit. */ assertion should never hit. */
eassert (beg_byte - visible_beg <= UINT32_MAX); eassert (beg_byte - visible_beg <= UINT32_MAX);