diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-12-06 19:28:02 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-12-06 19:28:02 +0200 |
| commit | b3847c020835676d5266801573e00aed1967b8e4 (patch) | |
| tree | 30f37622fe44859fddb35aff4948fa58ec7c309e /src/treesit.c | |
| parent | 40af27859e0fc243d1fcfd0ddab4fe1748568c58 (diff) | |
| download | emacs-b3847c020835676d5266801573e00aed1967b8e4.tar.gz emacs-b3847c020835676d5266801573e00aed1967b8e4.tar.bz2 emacs-b3847c020835676d5266801573e00aed1967b8e4.zip | |
; Minor cleanup in treesit.c
* src/treesit.c (Ftreesit_query_capture)
(Ftreesit_parser_set_included_ranges): Minor cleanups.
Diffstat (limited to 'src/treesit.c')
| -rw-r--r-- | src/treesit.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/treesit.c b/src/treesit.c index 343054ed53e..9926806612a 100644 --- a/src/treesit.c +++ b/src/treesit.c @@ -1501,9 +1501,9 @@ buffer. */) for (int idx = 0; !NILP (ranges); idx++, ranges = XCDR (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))); - EMACS_INT end_byte = buf_charpos_to_bytepos (buffer, + ptrdiff_t end_byte = buf_charpos_to_bytepos (buffer, XFIXNUM (XCDR (range))); /* Shouldn't violate assertion since we just checked for buffer size at the beginning of this function. */ @@ -2507,10 +2507,8 @@ the query. */) /* Set query range. */ if (!NILP (beg) && !NILP (end)) { - EMACS_INT beg_byte = buf_charpos_to_bytepos (current_buffer, - XFIXNUM (beg)); - EMACS_INT end_byte = buf_charpos_to_bytepos (current_buffer, - XFIXNUM (end)); + ptrdiff_t beg_byte = CHAR_TO_BYTE (XFIXNUM (beg)); + ptrdiff_t end_byte = CHAR_TO_BYTE (XFIXNUM (end)); /* We never let tree-sitter run on buffers too large, so these assertion should never hit. */ eassert (beg_byte - visible_beg <= UINT32_MAX); |