aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorEli Zaretskii2023-02-02 21:54:15 +0200
committerEli Zaretskii2023-02-02 21:54:15 +0200
commit88ccf78b206f7360060c0b1e2c5b9b86b8904134 (patch)
treeae5e54e4a7597dd0212fe7c99d8fabc7c87cddd3 /src
parent20454128b8be9fb3b525ac43f7e5dfa9cc639db0 (diff)
downloademacs-88ccf78b206f7360060c0b1e2c5b9b86b8904134.tar.gz
emacs-88ccf78b206f7360060c0b1e2c5b9b86b8904134.zip
; * src/treesit.c (treesit_predicate_match): Simplify last change.
Diffstat (limited to 'src')
-rw-r--r--src/treesit.c13
1 files changed, 5 insertions, 8 deletions
diff --git a/src/treesit.c b/src/treesit.c
index 52953573061..8e772523cc7 100644
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -2483,8 +2483,8 @@ treesit_predicate_match (Lisp_Object args, struct capture_range captures)
2483 uint32_t end_byte_offset = ts_node_end_byte (treesit_node); 2483 uint32_t end_byte_offset = ts_node_end_byte (treesit_node);
2484 ptrdiff_t start_byte = visible_beg + start_byte_offset; 2484 ptrdiff_t start_byte = visible_beg + start_byte_offset;
2485 ptrdiff_t end_byte = visible_beg + end_byte_offset; 2485 ptrdiff_t end_byte = visible_beg + end_byte_offset;
2486 ptrdiff_t start_pos = buf_bytepos_to_charpos (buffer, start_byte); 2486 ptrdiff_t start_pos = BYTE_TO_CHAR (start_byte);
2487 ptrdiff_t end_pos = buf_bytepos_to_charpos (buffer, end_byte); 2487 ptrdiff_t end_pos = BYTE_TO_CHAR (end_byte);
2488 ptrdiff_t old_begv = BEGV; 2488 ptrdiff_t old_begv = BEGV;
2489 ptrdiff_t old_begv_byte = BEGV_BYTE; 2489 ptrdiff_t old_begv_byte = BEGV_BYTE;
2490 ptrdiff_t old_zv = ZV; 2490 ptrdiff_t old_zv = ZV;
@@ -2495,8 +2495,8 @@ treesit_predicate_match (Lisp_Object args, struct capture_range captures)
2495 ZV = end_pos; 2495 ZV = end_pos;
2496 ZV_BYTE = end_byte; 2496 ZV_BYTE = end_byte;
2497 2497
2498 ptrdiff_t val = search_buffer (regexp, start_pos, start_byte, end_pos, end_byte, 2498 ptrdiff_t val = search_buffer (regexp, start_pos, start_byte,
2499 1, 1, Qnil, Qnil, false); 2499 end_pos, end_byte, 1, 1, Qnil, Qnil, false);
2500 2500
2501 BEGV = old_begv; 2501 BEGV = old_begv;
2502 BEGV_BYTE = old_begv_byte; 2502 BEGV_BYTE = old_begv_byte;
@@ -2505,10 +2505,7 @@ treesit_predicate_match (Lisp_Object args, struct capture_range captures)
2505 2505
2506 set_buffer_internal (old_buffer); 2506 set_buffer_internal (old_buffer);
2507 2507
2508 if (val > 0) 2508 return (val > 0);
2509 return true;
2510 else
2511 return false;
2512} 2509}
2513 2510
2514/* Handles predicate (#pred FN ARG...). Return true if FN returns 2511/* Handles predicate (#pred FN ARG...). Return true if FN returns